记录编号	212357	评测结果	AAAAA
题目名称	[NOIP 2001]数的划分	最终得分	100
用户昵称	萌萌哒姐姐	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2015-12-06 15:02:57	内存使用	0.17 MiB

var k,n,i,j:longint;
f:array[0..200,0..6] of longint;
begin
	assign(input,'sdhf.in');reset(input);
	assign(output,'sdhf.out');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-1,j-1]+f[i-j,j];
	writeln(f[n,k]);
	close(input);close(output);
end.