var n:integer;
function factorial(x:integer):longint;
begin
if x = 1 then factorial:= 1 else factorial:= x * factorial (x-1);
end;
readln(n);
if n > 0 then
writeln('(',n,'*2)! = ', factorial(n*2));
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.