Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, кратных 3 и оканчивающихся на 4 или 1. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом О (0 признак окончания ввода, не входит в последовательность). Введённые числа не превышают 30 000. Гарантируется, что такие числа есть. Программа должна вывести одно число: произведение чисел, кратных 3 и оканчивающиеся на 4.
Приложения:
![](https://st.uroker.com/files/4a5/4a549097f23c46419da3f3bcebfd1d25.jpg)
Ответы
Ответ дал:
0
Ответ:
- 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.
Пример работы:
Приложения:
![](https://st.uroker.com/files/3a5/3a508da8fd29871ef79fd05dd425814d.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад