数的划分
问题描述
将整数n分成k份,且每份不能为空,任意两份不能相同(不考虑顺序)。
例如:n=7,k=3,下面三种分法被认为是相同的。
1,1,5; 1,5,1; 5,1,1;
问有多少种不同的分法。
输入:n,k (6<n<=200,2<=k<=6)
输出:一个整数,即不同的分法。
样例
输入: 7 3
输出:4 {四种分法为:1,1,5;1,2,4;1,3,3;2,2,3;}
-----------------------------------------------
和自然数拆分的解决方法是一样的...
------------------------------------------------
var
n,k,ans:longint;
procedure init;
begin
assign(input,'p1023.in');
assign(output,'p1023.out');
reset(input);
rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure dfs(t,last,tot:longint);
var
i:longint;
begin
if t=k then
begin
if tot=n then inc(ans);
exit;
end;
for i:=last to n-tot do
begin
dfs(t+1,i,tot+i);
end;
end;
procedure main;
begin
readln(n,k);
ans:=0;
dfs(0,1,0);
writeln(ans);
end;
begin
init;
main;
terminate;
end.