1.Составьте программу которая вычисляет произведение натуральных чисел кратных 23 в диапазоне от 100 до 620
2.Найти произведение чисел от 11 до 6
3.Найти значение функции на отрезке [8;4] с шагом -0,2
сделайте пожалуйста 1 и 2

Вопрос школьника по предмету Информатика

1.Составьте программу которая вычисляет произведение натуральных чисел кратных 23 в диапазоне от 100 до 620
2.Найти произведение чисел от 11 до 6
3.Найти значение функции на отрезке [8;4] с шагом -0,2
сделайте пожалуйста 1 и 2

Ответ учителя по предмету Информатика

Var

   A:integer;

   P:real;

Begin

P:=1;

For A:= 100 to 620 do

    if A mod 23 = 0 then P:=P*A;

WriteLn(‘P = ‘,P);

End.

Результат работы программы:

P = 1.5255279798308E+55

Var

   A:integer;

   P:real;

Begin

P:=1;

For A:= 11 downto 6 do

    P:=P*A;

WriteLn(‘P = ‘,P);

End.

Результат работы программы:

P = 332640