Написать программу вычисляющую y=(2n)! , n>0.

[Jameses]

Написать программу вычисляющую y=(2n)! , n>0.

[Stilet]

Попытки?
Наработки?

[type_Oleg]

function fact2n(n:Byte):Integer;
begin
 fact2n:=fact(2*n);
end;

А функции вычисления просто факториала fact уже 100500 раз написаны, перенаписаны.

[Arigato]

А вот и функция нахождения факториала:

function fact(n: byte): longint;
const
  f: array[1..12] of longint=(1,2,6,24,120,720,5040,40320,362880,3628800,39916800,479001600);
begin
  if (n>0) and (n<13)
    then fact:=f[n]
    else fact:=1;
end;