Найти произведение всех целых чисел из промежутка от 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.

  1. Переменная p инициализируется значением 1.
  2. В цикле for переменная i принимает значения от 3 до 33 (включительно).
  3. Внутри цикла проверяется условие if i mod 3=0, где mod - оператор остатка от деления. Если это условие истинно, то значение переменной p умножается на значение переменной i.
  4. После завершения цикла, значение переменной p выводится на экран с помощью функции write.
  5. Код завершается. Таким образом, данный код находит произведение всех целых чисел из промежутка от 3 до 33 кратных 3 и выводит его на экран.

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы