记录编号	5137	评测结果	AAAAA
题目名称	[NOIP 2001]数的划分	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2008-10-24 23:24:31	内存使用	0.11 MiB

program sdhf(input,output);
const
 maxn=200;
 maxk=6;
var
 n,k,i,j:longint;
 f:array[0..maxn,0..maxk] of longint;
begin
 assign(input,'sdhf.in');assign(output,'sdhf.out');
 reset(input);rewrite(output);
 readln(n,k);
 f[0,0]:=1;
 for i:=1 to n do
  for j:=1 to k do
   if(i>=j)then f[i,j]:=f[i-j,j]+f[i-1,j-1];
 writeln(f[n,k]);
 close(input);close(output);
end.