bico.txt

用于开发税务票据管理的软件

Function BICO(N,K:Integer):real;
begin
  BICO:=Int(Exp(FACTLN(N)-FACTLN(K)-FACTLN(N-K)));
end;