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

язык pascal abc

Question

Устинья

14 сентября, 04:59

+4

Ответы (1)

Знаете ответ на вопрос?

Машаня · Answer 1

Var s, i:integer;

begin

for i:=1 to 100 do

if not (i mod 2 = 0) then

s:=s+i;

writeln (s) ;

end.

Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100. 1+3+5 + ... + 99язык pascal abc