Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, кратных 3 и оканчивающихся на 4 или 1. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом О (0 признак окончания ввода, не входит в последовательность). Введённые числа не превышают 30 000. Гарантируется, что такие числа есть. Программа должна вывести одно число: произведение чисел, кратных 3 и оканчивающиеся на 4.
var i: integer; p: BigInteger; begin i := 1; p := 1; while i <> 0 do begin read(i); if (i mod 3 = 0) and (i mod 10 = 4) or (i mod 10 = 1) then p := p * i; end; writeln(p) end.
Пример работы: