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.