Question

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

Answer 1

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