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

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

Ответы

20yanushkevich04 15.10.2020 05:46

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.

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

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

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

тильняшка5 20.04.2020 20:56

Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 42×42 пикселя, если известно, что в изображении используется палитра...

xhhxjdjdj4 20.04.2020 20:55

Вычисли значение математического выражения в MS Excel: (55+75)−2(77:(8+8)). (ответ округли до сотых)...

Besta69 20.04.2020 20:55

Создайте двухмерный массив. Заполните его случайными числами и покажите на экран. Пользователь выбирает количество сдвигов и положение (влево, вправо, вверх, вниз). Выполнить...

Kamil73773 20.04.2020 20:55

Составьте блок-схему и напишите программу на языке программирования Паскаль: 1)Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте алгоритм вычисления времени,...

saruul708 20.04.2020 20:55

Нужно соединить все фрагменты в 1 документ Word. После объединения всего текста необходимо сделать форматирование - шрифт Times New Roman, 14пт, интервал междустрочный 1,5, остальные...

goldin1337 03.06.2019 10:40

Паскаль. 9 класс 1. дан массив, выбрать из него только те элементы, которые кратны 3 2. дан массив чисел. указать те элементы, которые принадлежат отрезку[c,d]. 3. дан массив,...

отличница459 03.06.2019 10:40

Напишите программу, которая вводит два целых числа, a и b (a...

Anjik20125 03.06.2019 10:40

Нужно название команды и девиз, и постановка или сценка на тему информатики, если даже сценку не можете придумать, напишите девиз и название. главное, чтобы было связанно с информатикой!...

kayseriliadige 03.06.2019 10:40

Составить программу для определения по трем 1)сторонам равнобедренного или равностороннего или произвольного треугольника 2) )составить пр. для вычисления y если х 0 то y=2,...

zinabantaeva407 03.06.2019 10:40

Составить программы через паскаль abc 1. дана длина ребра куба а. найти объем куба v = a3 ( третья степень ) и площадь его поверхности s = 6 *a2. а = 2.00 v = 8.000 s = 24.000...

Популярные вопросы