Вводится n. найти произведение натуральных чисел от 1 до n. 3 способами (циклами) для PaskalABC.

1 способ:

var n, i, pr:integer;

begin

read (n);

pr:=1;

if (n>=1) then

begin

for i:=1 to n do

begin

pr:=pr*i;

end;

end else

writeln ('Неправильный ввод');

writeln (pr);

end.

2 способ:

var n, i, pr:integer;

begin

read (n);

pr:=1;

if (n>=1) then

begin

for i:=1 to n do

begin

pr*=i;

end;

end else

writeln ('Неправильный ввод');

writeln (pr);

end.

3 способ:

var n, i:integer;

function fact (n:integer) : integer;

begin

if n=1 then fact:=1

else fact:=fact (n-1) * n;

end;

begin

read (n);

i:=fact (n);

writeln (i);

end.