Помогите пожалуйста! С клавиатуры вводится последовательность чисел, 0 конец последовательности. Посчитать сколько введено четных чисел. Нужно составить программу для Паскаль

Ответ

Автор - kitchenrecords

var x,y:integer;
begin
repeat
readln(x);
y := y + 1 - (x mod 2);
until x = 0;
writeln(y);
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.