Ответы и объяснения

Лучший Ответ!
  • ali07
  • главный мозг
2011-12-01T14:08:23+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

  var i, n, s : integer;

begin

   write('введите число N=');

   readln(n);

   s:=0;

   i:=2;

   while i<=n do

     begin

       s:=s+i;

       i:=i+2

     end;

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

   readln

end.