Question

Информатика!Написать программу в Паскале!

Задано целое положительное число N>1. Вычислить сумму четных целых чисел в
диапазоне [1..N].

Важно! Для решения задач использовать цикл с предусловием! ​

Answer 1

var

  n,s,i : integer;

begin

  s:=0; i:=0;

  write('N = '); read(n);

  while n <> i do

     begin

 i:=i+1;

 s:=s+i;

     end;

  writeln('Сумма ', n, ' чисел = ',s);

end.