Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3 - Pascal ABC
Формулировка задачи:
Помогите пожалуйста
Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3
Решение задачи: «Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3»
textual
Листинг программы
var i,p:integer; begin p:=1; for i:=3 to 33 do if i mod 3=0 then p:=p*i; write('p=',p); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC.
- Переменная
p
инициализируется значением 1. - В цикле
for
переменнаяi
принимает значения от 3 до 33 (включительно). - Внутри цикла проверяется условие
if i mod 3=0
, гдеmod
- оператор остатка от деления. Если это условие истинно, то значение переменнойp
умножается на значение переменнойi
. - После завершения цикла, значение переменной
p
выводится на экран с помощью функцииwrite
. - Код завершается. Таким образом, данный код находит произведение всех целых чисел из промежутка от 3 до 33 кратных 3 и выводит его на экран.