var
s,sub:string;k:integer; //声明变量
begin
readln(s); //读字符串
for k:=2 to length(s) do //for循环算其长度k
begin
sub:=copy(s,k,1); //复制
delete(s,k,1); //删除原来的字符串
insert(sub,k,1); //插入变更后的字符串
end;
writeln(s); //写字符串
end.
相信你肯定对其中三个函数有模糊,啊哦,在纸上琢磨下就更深入了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024