typhoon 2010-11-13 06:31:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 90分
提交日期： 2008-11-28 19:35:00
有效耗时： 875毫秒
测试结果1: 通过本测试点|有效耗时156:ms
测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时156:ms
测试结果4: 通过本测试点|有效耗时47:ms
测试结果5: 通过本测试点|有效耗时47:ms
测试结果6: 通过本测试点|有效耗时156:ms
测试结果7: 通过本测试点|有效耗时172:ms
测试结果8: 通过本测试点|有效耗时47:ms
测试结果9: 通过本测试点|有效耗时47:ms
测试结果10:
#1 typhoon@2008-11-28 03:41:00
9665
回复
删除
program tt；
var s1,s2,s3,s4:ansistring；
i,j,m,x,y:longint；
begin
readln(s1)；
readln(s2)；
s3:=’’；
for i:=1 to length(s1)-m do
for j:=1 to length(s2)-m do begin
if s1[i]=s2[j] then begin
m:=1；
x:=i；
y:=j；
s4:=’’；
while s1[x]=s2[y] do begin
inc(x)；
inc(y)；
inc(m)；
s4:=s4+s1[x-1]；
end；
if m-1>length(s3) then s3:=s4；
end；
end；
writeln(s3)；
readln；
end.