p1117.pas.bak

来自「www.vijos.cn上一些习题的参考源码」· BAK 代码 · 共 14 行

program p1117;
var
	n,k,p,i,j:longint;
	d:array[0..200,0..6] of longint;
begin
	readln(n,k);
	fillchar(d,sizeof(d),0);
	d[0,0]:=1;
	for p:=1 to n do
		for i:=p to n do
			for j:=1 to k do
				d[i,j]:=d[i-p,j-1];
	writeln(d[n,k]);
end.