ПОЖАЛУЙСТА!!! 25 БАЛЛОВ!!! ТАКОГО В ИНЕТЕ НЕТ! PASCAL

Напишите программу, которая в последовательности целых чисел определяет количество четных чисел. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: количество чётных чисел.

Ответ

Автор - BobbyFresnel

===== PascalABC.NET =====

begin

ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print

end.

Предыдущий вопрос Следующий вопрос

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