Question

Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.

Answer 1

program a;
var a,b:integer;
beginwriteln('введите числа окончив последовательность нулём');
readln(a);
b:=0;
while (a<>0) do beginif
((a mod 5 = 0) or (a mod 9 = 0)) then
b:=b+a;
readln(a);
end;
writeln('ответ ' ,b);
end.