Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2 и оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 2 и оканчивающихся на 6.
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger;
ReadSeqInteger(n).Count(p -> Abs(p) mod 10 = 6).Print
end.
Объяснение:
Если число оканчивается на 6, оно одновремено кратно 2, поэтому добавочно проверять эту кратность не нужно. Использованте последовательности, а не массива позволяет не хранить вводимые данные.