Написать программный код к задаче Задача:Определите и выведите ** экран сумму всех...

Question

Написать программный код к задаче
Задача:Определите и выведите на экран сумму всех нечётных двузначных чисел

Answer 1

1)
Var s,i : Integer;
Begin
  i:=1; s:=0;
  While i<=99 do<br>  Begin
    s:=s+i;
    i:=i+2;
  end;
  Writeln(s);
end.

2)
Begin
  Writeln((1+99)*50 div 2);
end.

Comments

комментарий для варианта №2 Дан ряд: м - здесь 50 цифр Сложим друг с другом два этих ряда, один из которых запишем в обратном порядке: 1,3,5,..,95,97,99 + 99,97,95,..,5,3,1 = 100+100+100+..+100+100+100 т.е. должна получиться сумма из 50-ти чисел "100" = 100*50 А теперь поделим этот на результат на 2, т.к. мы сложили два ряда. 100*50/2 = 2500 вот и получаем нужный нам результат.

---

поправка "м" это 1,3,5,..,95,97,99 - здесь 50 цифр