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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s,i:integer; begin for i:=1 to 100 do if not(i mod 2 = 0) then s:=s+i; writeln(s); end.