yumaosheng 2013-10-30 07:43:00
点我顶贴
收藏
删除
好像没问题啊！！
var
ss,st,s,ans:ansistring;
i,long,k,l:integer;
begin
readln(ss);
readln(st);
l:=length(st);
i:=1;
long:=0; k:=0;
s:='';
while i<=l do
begin
if pos(ss[i],st)<>0
then
begin
s:=s+ss[i];
if pos(s,st)<>0
then
begin
inc(k);
if i=l then if k>long then begin long:=k; ans:=s; end;
end
else
begin
inc(k);
if k-1>long then begin long:=k-1; delete(s,k,1); ans:=s; end;
s:=ss[i];
k:=1;
end;
end
else
begin
if k>long then begin long:=k; ans:=s; end;
s:='';
k:=0;
end;
inc(i);
end;
writeln(ans);
end.