С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить количество четных чисел.

Напишите на языке паскаль

Question

Герма

20 мая, 05:22

+4

Ответы (1)

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

Трофима · Answer 1

Program n1;

var a, k: integer;

begin

readln (a) ;

k:=0;

while a0 do

begin

if a mod 2=0 then k:=k+1;

readln (a) ;

end;

write (k) ;

end.

С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить количество четных чисел.Напишите на языке паскаль