NOIP2001第2题(数的划分)--动态规划求解描述Description将整数n分成k份,且每份不能为空,任意两份不能相同(不考虑顺序).例如：n=7,k=3,下面三种分法被认为是相同的.1,1,5;1,5,1;5,1,1;问有多少种不

Question

NOIP2001第2题(数的划分)--动态规划求解
描述 Description
将整数n分成k份,且每份不能为空,任意两份不能相同(不考虑顺序).
例如：n=7,k=3,下面三种分法被认为是相同的.
1,1,5; 1,5,1; 5,1,1;
问有多少种不同的分法.
输入格式 Input Format
输入n,k (6

Answer 1

program hello;
var
n,k,total:longint;
procedure search(u,last,deep:integer);
var
i:integer;
begin
if deep=k then
begin
inc(total);
exit;
end;
for i:=last to u div 2 do
search(u-i,i,deep+1);
end;
begin
read(n,k);
search(n,1,1);
writeln(total);
end.
简单吧?