Question

Написать программу в паскале вычисляющую (2·n)! при n>0

Answer 1

var n:integer;  

function factorial(x:integer):longint;  

begin

  if x = 1 then factorial:= 1 else factorial:= x * factorial (x-1);  

end;

begin

readln(n);

if n > 0 then  

   writeln('(',n,'*2)! = ', factorial(n*2));

end.