計算組合數

聲明

　　輸入兩個整數 n,m ，求在 m 個數中取 n 個數的方案總數：

 1 var
 2         n,m:longint;
 3 function c(n,m:longint):qword;
 4 var
 5         i:longint;
 6 begin
 7         c:=1;
 8         for i:=1 to n do
 9                 c:=c*(m-i+1) div i;
10 end;
11 begin
12         readln(n,m);
13         writeln(c(n,m)); //n<m
14 end.