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

язык pascal abc

Question

Федор

3 сентября, 18:44

+1

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