Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности хотя бы одно четное число краmoе 3. вход: программа получает на вход последовательность чисел заканчивающимся нулем, количество чисел не превышает 1000, а сами числа 30000. выход: программа должна вывести yes, если в последовательности есть четное число кратное 3 и no в противном случае.
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
if ReadSeqIntegerWhile('Ввод завершите нулем:',t->t<>0).Any(t->t mod 6=0)
then Writeln('YES') else Writeln('NO')
end.
Примеры
Ввод завершите нулем: -45 34 23 17 -62 15 0
NO
Ввод завершите нулем: -45 34 23 17 -62 12 15 0
YES
Замечание. Количество вводимых чисел не ограничено, поскольку они в памяти не хранятся. Числа не должны превышать 2 147 483 647.