ac1002.pas

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

program tju1002;
var
  s,h:string;
procedure perm(s:string);
  var
    i:byte;
  begin
    if length(s)=1 then begin
      writeln(h,s);
      exit;
    end;
    for i:=1 to length(s) do begin
      h:=h+s[i]+' ';
      perm(copy(s,1,i-1)+copy(s,i+1,length(s)-i));
      delete(h,length(h)-1,2);
    end;
  end;
begin
  readln(s);
  perm(s);
end.