codevs1039

题目地址：http://codevs.cn/problem/1039/

分析：

递推

代码：

var f:array [0..200,0..6] of longint; 

n,k,i,j:longint;

begin

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]); 

end.