Question

Составить блок-схему Посчитать произведение чисел кратных 5 от 6 до 150. Записать циклом for,потом While.

Answer 1

Цикл For:

var a,b:integer;

Begin

   b:=1;

   For a:=1 to 150 do

       begin

       If ((a mod 5)=0) and ((a mod 6)=0) then

           b:=b * a;

       end;

   WriteLn (b);

End.

Цикл While:

var a,b:integer;

Begin

   a:=0;

   b:=1;

   While a<150 do

       begin

       a:=a+1;

       If ((a mod 5)=0) and ((a mod 6)=0) then

           b:=b * a;

       end;

   WriteLn (b);

End.

Answer 2

Блок-схема для подсчета произведения чисел, кратных 5, от 6 до 150

Для подсчета произведения чисел, кратных 5, от 6 до 150, можно использовать циклы `for` и `while`. Ниже представлена блок-схема для этой задачи:


Цикл `for` для подсчета произведения чисел, кратных 5, от 6 до 150

product = 1
for num in range(6, 151):
    if num % 5 == 0:
        product *= num

Цикл `while` для подсчета произведения чисел, кратных 5, от 6 до 150

product = 1
num = 6
while num <= 150:
    if num % 5 == 0:
        product *= num
    num += 1

Оба цикла начинаются с числа 6 и проверяют каждое число в диапазоне от 6 до 150. Если число кратно 5, оно умножается на текущее значение переменной `product`. В конце выполнения цикла, переменная `product` будет содержать произведение всех чисел, кратных 5, в заданном диапазоне.

Примечание: В данном случае, произведение чисел, кратных 5, от 6 до 150, равно