Question

Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности хотя бы одно четное число краmoе 3. вход: программа получает на вход последовательность чисел заканчивающимся нулем, количество чисел не превышает 1000, а сами числа 30000. выход: программа должна вывести yes, если в последовательности есть четное число кратное 3 и no в противном случае.

Answer 1

Четное число кратно 2, а если оно кратно и 3, то оно кратно 2х3=6.

// 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.