计算组合数
输入两个整数 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.
输入两个整数 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.
