Question

Напишите программу, которая в последовательности целых цисел вычисялет сумму всех чисел, кратны 5 или 9. Программа получает на вход целые числа, колличество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).
Колличество чисел не привышает 20. Введенные числа по модулю не привыщают 1500.
Программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.
Входные данные: -15; 99; 8; 0
Выходные данные: 84

Answer 1

Прикрепляю текст программы во вложения.

===PascalABC.NET===

8ee4d247b9741cabceb227cf20589133.pas