p1117.pas

www.vijos.cn上一些习题的参考源码

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
				inc(d[i,j],d[i-p,j-1]);
	writeln(d[n,k]);
end.