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