Вводится 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.