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.