Question

Помогите,пожалуйста
найти произведение чисел от N до 1
паскаль abc

Answer 1

Var
   N:integer;
   P:real;
Begin
P:=1;
Write('N = ');
ReadLn(N);
For N:= N downto 2 do
    P:=P*N;
Write('P = ',P);
End.


Пример работы программы:

N = 13
P = 6227020800