Напишите программу, которая в последовательности натуральных чисел определяет...

+462 голосов
2.1m просмотров

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


image

Информатика (193 баллов) | 2.1m просмотров
Дан 1 ответ
+157 голосов

Ответ:

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

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


image
(3.7k баллов)