戰魂 2011-08-18 04:48:00
点我顶贴
收藏
删除
var
02.k,j,i,h,l:longint;
03.s,s1,s2,s3:string;
04.begin
05.
readln(s1);
06.
readln(s2);
07.
l:=length(s1);
08.
i:=1;
09.
h:=0;
10.
s:='';
11.
while i<=l do
12.
begin
13.
for j:=i to l do
14.
begin
15.
s3:=copy(s1,i,j-i+1);
16.
k:=pos(s3,s2);
17.
if k=0 then break
18.
else if length(s3)>h then begin s:=s3;h:=length(s3);end;
19.
end;
20.
i:=i+1;
21.
end;
22.
writeln(s);
23.end.
为什么会错，请告诉我怎么改！！！！！！！！！！！