UC知道组合数(用pascal）
来源：百度知道 编辑：UC知道 时间：2024/06/24 10:48:27
Description
从 n 本不同的书中，任取 m 本书的不同组合总数是多少？
Input
只有一行共有二个正整数：n m
( 1 <= m < n <= 1000 )
Output
只有一行且只有一个正整数：符合条件的组合总数
Sample Input
5 3
Sample Output
10
Source
基础题
注意：输出是一个整数，但不能是科学计数法
大家可以去http://218.75.87.27:8080/JudgeOnline/showproblem?problem_id=1072试试
从 n 本不同的书中，任取 m 本书的不同组合总数是多少？
Input
只有一行共有二个正整数：n m
( 1 <= m < n <= 1000 )
Output
只有一行且只有一个正整数：符合条件的组合总数
Sample Input
5 3
Sample Output
10
Source
基础题
注意：输出是一个整数，但不能是科学计数法
大家可以去http://218.75.87.27:8080/JudgeOnline/showproblem?problem_id=1072试试
program project1;
var sum:extended;
n,m,i:longint;
begin
assign(input,'input.in');assign(output,'output.out');
reset(input);rewrite(output);
readln(n,m);
sum:=1;
for i:=n-m+1 to n do
sum:=sum*i;
for i:=1 to m do
sum:=sum/i;
writeln(sum:0:0);
close(input);close(output);
end.
啥毛病？没明白