ac1002.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 22 行

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.