Question

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

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.