Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 5. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: количество чётных чисел, кратных 5.
Для записи программы используйте приведенные переменные:
var a, n: integer
begin
n:= 0
readln(a)
…
writeln(n)
end
Ответы
Ответ дал:
0
Ответ:
###################
# PascalABC.NET 3.7 #
# .NET Framework 4.8 #
###################
begin
ReadSeqIntegerWhile(x -> x > 0).Count(x -> x mod 5 = 0).Println();
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад