Составьте программу вычисления суммы нечётных чисел в диапазоне от 1 до 100.

1+3+5 + ... + 99

Pascal ABC

Question

Петуся

9 апреля, 16:31

+1

Ответы (1)

Знаете ответ?

Ларуся · Answer 1

Var a, i:integer;

begin

for i:=1 to 99 do begin

if (i mod 2>0) then

a:=a+i;

end;

write (a) ;

end.

Составьте программу вычисления суммы нечётных чисел в диапазоне от 1 до 100.1+3+5 + ... + 99Pascal ABC