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

1+3+5 + ... + 99

Pascal ABC

Question

Перпетуя

10 июня, 16:44

+2

Ответы (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