Question

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

Answer 1

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