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

язык pascal abc

Question

Сила

24 июля, 17:37

+5

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