ac1024.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1024;
var
  n,i:word;
procedure print;
  var
    u:array[1..9]of boolean;
    p,a,b,c,d,e,f,g,h,i:shortint;
  begin
    fillchar(u,sizeof(u),0);
    read(p);
    for a:=1 to 7 do begin
      u[a]:=true;
      for b:=1 to 8 do if not u[b] then begin
        u[b]:=true;
        for c:=1 to 8 do if not u[c] then begin
          u[c]:=true;
          for d:=b+1 to 9 do if not u[d] then begin
            u[d]:=true;f:=p-a-b-d;
            if (f>a) and (f<10) and not u[f] then begin
              u[f]:=true;
              for e:=c+1 to 9 do if not u[e] then begin
                u[e]:=true;i:=p-a-c-e;
                if (i>f) and (i<10) and not u[i] then begin
                  u[i]:=true;
                  for g:=1 to 8 do if not u[g] then begin
                    u[g]:=true;h:=p-f-g-i;
                    if (h>g) and (h<10) and not u[h] then begin
                      writeln(a);
                      writeln(b,' ',c);
                      writeln(d,' ',e);
                      writeln(f,' ',g,' ',h,' ',i);
                      exit;
                    end;
                    u[g]:=false;
                  end;
                  u[i]:=false;
                end;
                u[e]:=false;
              end;
              u[f]:=false;
            end;
            u[d]:=false;
          end;
          u[c]:=false;
        end;
        u[b]:=false;
      end;
      u[a]:=false;
    end;
  end;
begin
  read(n);
  for i:=1 to n do
    print;
end.