讨论 / 求解啊!难道这题必须递归?我不想递归太麻烦了!!
121212 2012-10-05 23:29:00
点我顶贴 收藏 删除
var

s,s1:string;

i,x:longint;

begin

readln(s);

readln(s1);

for i:=1 to length(s1) do

if s[i]=s1[length(s1)] then

begin

x:=i;

break;

end;

for i:=x downto 1 do write(s[i]);

for i:=length(s) downto x+1 do write(s[i]);

end.

查看更多回复
提交回复