Question

ДАЮ 40 БАЛЛОВ!!!
an=(n!)^2/(2^n^2)! как это выражение записать на языке паскаль помогите пожалуйста

Answer 1

Используется Pascal 3.5.1 сборка 2256 (от 16.10.2019):

function Factorial(n: integer): integer;

begin

 Result := 1;

 for var i:=2 to n do

   Result *= i;

end;

function Power(a: integer; n: integer): integer;

begin

 Result := 1;

 for var i:=1 to n do

   Result *= a;

end;

var  

an:real;

n:=ReadInteger;

begin

an:=Power(Factorial(n),2)/Factorial(Power(2,Power(n,2)));

writeln(an);

end.