Напишите программу, которая в последовательности натуральных чисел определяет сумму всех
чисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количество
введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания
ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не
превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и
оканчивающихся на 9.
Пример работы программы:
Входные данные Выходные данные
16
29
56
9
39
0
48
var
n, sum: integer;
begin
sum := 0;
read(n);
while n <> 0 do
begin
if (n mod 3 = 0) and (n mod 10 = 9) then
sum := sum + n;
read(n);
end;
write(sum);
end.