求解！！ - pascal吧

level 6

190dxq 楼主

2015年01月08日 05点01分 1

level 11

春日野穹😚

var
st:ansistirng;
i,j:longint;
ch:char;
begin
readln(st);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
ch:=st[i];st[i]:=st[j];st[j]:=ch;
end;
writeln(st);
end.

2015年01月08日 08点01分 2