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

Question

Витольда

11 ноября, 21:38

+3

Ответы (1)

Знаете ответ на вопрос?

Нина · Answer 1

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.