Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.

1

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

  • ali07
  • главный мозг
2011-05-21T12:35:23+04:00

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

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

program xxx;

  var i, s : integer;

begin

 s:=0;

 i:=2;

 while i<=40 do

   begin

      s:=s+i;

      i:=i+2

   end;

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

 readln

end.