составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100

Question

составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100

Answer 1

Var
 i,sum:integer;
begin
 sum:=0;
 for i:=1 to 100 do 
   if (i mod 2<>0) then
 sum:=sum+i; 
 write(sum); 
end.