Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2 и оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 2 и оканчивающихся на 6.

Answer 1

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

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> Abs(p) mod 10 = 6).Print

end.

Объяснение:

Если число оканчивается на 6, оно одновремено кратно 2, поэтому добавочно проверять эту кратность не нужно. Использованте последовательности, а не массива позволяет не хранить вводимые данные.