Question

Написать программу на языке программирования Paskal, которая будет находить сумму всех четных чисел в диапазоне от 1 до N (N- вводится с клавиатуры)

Answer 1

Var i, n,  sum: integer;  

begin

readln(n);

for i:=1 to n do if i mod 2=0 then sum:=sum+i;

writeln(sum);

end.