记录编号	448	评测结果	WAAWEEEEEE
题目名称	分组	最终得分	20
用户昵称	name:弓虽	是否通过	未通过
代码语言	Pascal	运行时间	0.021 s
提交时间	2008-07-18 21:02:23	内存使用	0.09 MiB

program dataa(input,output,f1,f2);
var
 n,m,c,r,i:longint;
 a:array[1..10000] of longint;
 b:array[1..10000] of longint;
  f1,f2:text;
procedure p(k,j,q:integer);
var
 i,w:longint;
begin
 if k=m then begin
          b[k]:=q;
          c:=c+1;
          for w:=1 to k do begin
           inc(r);
           a[r]:=b[w];
          end;
          exit;
          end;
 for i:=j to (q div (m-k+1)) do
  begin
   b[k]:=i;
   q:=q-i;
   j:=i;
   p(k+1,j,q);
   q:=q+i;
  end;
end;
begin
 assign(f1,'dataa.in');
 assign(f2,'dataa.out');
 reset(f1);
 rewrite(f2);
 readln(f1,n,m);
 c:=0;  r:=0;
 p(1,1,n);
 writeln(f2,c);
 for i:=1 to r do begin
  write(f2,a[i],' ');
  if i mod m =0 then writeln(f2);
 end;
 close(f1);
 close(f2);
end.