Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность) Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел кратных 5. Для записи программы используйте приведенные переменные:
var a, n: integer
begin
n:=0
readln (a)
...
writeln(n)
end

Raul020507    2   11.12.2020 09:21    20