ac1126.pas

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

program tju1126;
var
  n,i:byte;
  s:string;
procedure gen(s:string);
  var
    l,i:byte;
  begin
    l:=length(s);
    if l=n then begin
      write('writeln(');
      for i:=1 to l do begin
        write(s[i]);
        if i=l then writeln(')') else write(','' '',');
      end;
    end
    else
      for i:=l downto 0 do begin
        if i<l then writeln('else');
        if i>0 then write('if ',s[i],'<',chr(97+l),' then ');
        gen(copy(s,1,i)+chr(97+l)+copy(s,i+1,l-i));
      end;
  end;
begin
  repeat
    read(n);
    s:='a';
    for i:=2 to n do s:=s+','+chr(96+i);
    writeln('var');
    writeln(s,':integer;');
    writeln('begin');
    writeln('readln(',s,');');
    gen('a');
    writeln('end.');
  until seekeof;
end.