记录编号	110991	评测结果	AAAAA
题目名称	[NOIP 2001]数的划分	最终得分	100
用户昵称	传奇	是否通过	通过
代码语言	Pascal	运行时间	0.213 s
提交时间	2014-07-12 20:24:43	内存使用	0.17 MiB

program cojs93;
var
  ans,m,i,n:longint;
procedure dfs(x,y,k:longint);
var
  i:longint;
begin
  if (k=m)and(y>=x) then
    begin
     inc(ans);
     exit;
    end;
  for i:=x to y do
    dfs(i,y-i,k+1);
end;
begin
  assign(input,'sdhf.in');
  assign(output,'sdhf.out');
  reset(input);
  rewrite(output);

  readln(n,m);
  ans:=0;
  for i:=1 to n div m do
  dfs(i,n-i,2);
  writeln(ans);

  close(input);
  close(output);
end.