Складіть програму для знаходження кількості парних натуральних чисел з проміжку від 1 до N, де N – введене з клавіатури число.

var

 N, i, sum: integer;

begin

 writeln('Введите N:');

 readln(N);

 sum := 0;

 for i := 1 to N do

   if (i mod 2) = 0 then

     sum += i;

     write('Сумма четных чисел = ',sum);

end.

Объяснение:

реализовано на pascal.