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

  • nelle987
  • Ведущий Модератор
2013-03-15T01:05:12+04:00

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

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

var i,n:integer;

begin

   n:=0;

   for i:=1 to 100 do

      if (i mod 2 = 0) then inc(n);

   writeln(n)

end.