记录编号	4784	评测结果	AAAAAAAAAA
题目名称	分组	最终得分	100
用户昵称	bly1991	是否通过	通过
代码语言	Pascal	运行时间	0.137 s
提交时间	2008-10-22 19:58:13	内存使用	0.13 MiB

program bly(input,ouput);
type
  t1=array[0..100] of integer;
var
  a:t1;
  b:array[1..100,1..100] of integer;
  i,j:integer;
  n,m,num:integer;
  f1,f2:text;

  procedure print(g:t1);
  var
    i0:integer;
  begin
    inc(num);
    for i0:=1 to m do b[num,i0]:=g[i0];
  end;

  procedure dg(x,q:integer;g:t1);
  var
    i0,ans:integer;
    temp:t1;
  begin
    ans:=0; temp:=g;
    for i0:=1 to m do ans:=ans+g[i0];
    if (x=m+1)and(ans=n) then print(g);
    if (x<=m)and(ans<>n) then begin
      g:=temp;
      for i0:=q to n do begin
        if g[x-1]<=i0 then begin
          g[x]:=i0;
          dg(x+1,q,g);
        end;
      end;
    end;
  end;
begin
  assign(f1,'dataa.in');
  reset(f1);
  readln(f1,n,m);
  close(f1);

  assign(f2,'dataa.out');
  rewrite(f2);
  dg(1,1,a);
  writeln(f2,num);
  for i:=1 to num do begin
    for j:=1 to m do begin
      write(f2,b[i,j],' ');
    end;
    writeln(f2);
  end;
  close(f2);
end.