记录编号	482	评测结果	AAAAAAAAAA
题目名称	分组	最终得分	100
用户昵称	EnAsn	是否通过	通过
代码语言	Pascal	运行时间	0.016 s
提交时间	2008-07-19 08:40:29	内存使用	0.00 MiB

program ex;
type
 ss=array[1..20]of integer;
 sz=array[1..1000,1..20]of integer;
var
 b:sz;
 a,c:ss;
 f1,f2:text;
 n,m,i,j:integer;
 t,k:integer;
procedure pd(c:ss);
 var
  j,x:integer;
 begin
  x:=0;
  for j:=1 to m do
     x:=x+c[j];
  if x<>n then exit;
  if x=n then
    begin
     inc(t);
     inc(k);
     for j:=1 to m do b[k,j]:=c[j];
    end;
 end;
procedure zh(step,j:integer);
 var
  i,k:integer;
 begin
  for i:=j to n do
    begin
     c[step]:=a[i];
     if step<m then zh(step+1,i)
               else pd(c);
    end;
 end;
begin
 assign(f1,'dataa.in');
 reset(f1);
 assign(f2,'dataa.out');
 rewrite(f2);
 readln(f1,n,m);
 for i:=1 to n do a[i]:=i;
 zh(1,1);
 writeln(f2,t);
 for i:=1 to k do
  begin
   for j:=1 to m do
    write(f2,b[i,j],' ');
    writeln(f2);
  end;
 close(f1);
 close(f2);
end.