wangz123 2010-07-30 16:21:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeond[6]
得分： 80分
提交日期： 2010-5-17 13:22:00
有效耗时： 390毫秒
测试结果1: 通过本测试点|有效耗时62ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时46ms
测试结果8: 输出过长|用户输出数据超过标准输出两倍[标准输出7位|选手输出1024位]
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 输出过长|用户输出数据超过标准输出两倍[标准输出254位|选手输出1024位]
#1 dongfanzhu@2010-05-17 06:16:00
14700
回复
删除
回复 楼主wangz123 的帖子
program P164;
var
s1,s2,z:ansistring;
i,j:longint;
begin
readln(s1);
readln(s2);
for i:=length(s1) downto 1 do
for j:=1 to length(s1)-i+1 do
begin
z:=copy(s1,j,i);
if pos(z,s2)<>0 then begin writeln(z);halt;end;
end;
end.
这程序 你看看把