gdczf 2008-02-19 02:19:00
点我顶贴
收藏
删除
var s1,s2,st:string；i,j,ln1,n:integer；
begin
readln(s1)；
readln(s2)；
ln1:=length(s1)；
for i:=ln1 downto 1 do
begin
for j:=1 to ln1-i+1 do
begin
st:=copy(s1,j,i)；
n:=pos(st,s2)；
if n>0 then break；
end；
if n>0 then break；
end；
writeln(st)；
end.