p1122.pas

www.vijos.cn上一些习题的参考源码

var
    n:integer;
    a,b:extended;
    
function fac(n:integer):extended;
var
    i:integer;
begin
    fac:=1;
    for i:=1 to n do
        fac:=fac*i;
end;

begin
    readln(n);
    a:=fac(2*n);
    b:=fac(n);
    writeln(trunc(a/(b*b*(n+1))));
    
end.