С клавиатуры вводятся числа до тех пор пока не введено число -5.найти количество четных чисел из веденных

1

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

  • Kitsu
  • почетный грамотей
2012-11-29T17:19:29+00:00

var i,s:integer;

begin

while i<>-5 do begin

readln(i);

if i mod 2=0 then s:=s+1;

end;

writeln(s);

end.