Составить программу вычисляющую сумму нечетных чисел от 1 до 10.

Question

Составить программу вычисляющую сумму нечетных чисел от 1 до 10.

Answer 1

Var sum:integer;
i:integer;
begin 
sum:=0;
for i:=1 to 10 do 
if i mod 2=1 then sum:=sum+i;
writeln(sum);
readln;
end.