中科新闻网天津限价房摇号查询:组合生成
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 04:00:03
那位大牛可以把组合与排列的源程（pascal)
告诉我
急急急急！！！！
告诉我
急急急急！！！！
var p1,p2,n,m,i:integer;
begin
readln(n,m);
p1:=1; p2:=1;
for i:=n downto n-m+1 do
p1:=p1*i;
for i:=m downto 1 do
p2:=p2*i;
writeln('Cnm: ',p1 div p2);{n个数中选m个数的组合}
writeln('Pnm: ',p1);{n个数中选m个数的排列}
end.