Question

Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, кратных 3 и оканчивающихся на 4 или 1. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом О (0 признак окончания ввода, не входит в последовательность). Введённые числа не превышают 30 000. Гарантируется, что такие числа есть. Программа должна вывести одно число: произведение чисел, кратных 3 и оканчивающиеся на 4.

Answer 1

Ответ:

• 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.

Пример работы: