题目编号:382-自然的谜语 查看该题
状态: Unaccepted
测评机： Xeost[5]
得分： 70分
提交日期： 2008-12-11 22:31:00
有效耗时： 1110毫秒
测试结果1: 通过本测试点|有效耗时156:ms
测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时203:ms
测试结果5: 选手程序运行超过时限
测试结果6: 通过本测试点|有效耗时219:ms
测试结果7: 通过本测试点|有效耗时219:ms
测试结果8: 通过本测试点|有效耗时219:ms
测试结果9: 选手程序运行超过时限
测试结果10: 输出过少|用户输出数据少于标准输出的50%[标准输出338908位|选手输出1402位]
提交代码： var s1,s2,s3:ansistring；
k,p,l,n,i:longint；
a:array [1..500000] of longint；
begin
readln(s1)；
readln(s2)；
l:=length(s1)；
n:=length(s2)；
for i:=1 to l do
s3:=s3+s2[i]；
if s3=s1 then begin p:=p+1；a[1]:=1；end；
while k+l <=n do
begin
k:=k+1；
delete(s3,1,1)；
s3:=s3+s2[k+l]；
if s3=s1 then begin p:=p+1；a[p]:=k+1；end；
end；
if p=0 then write(’There must be something wrong.’)
else
begin
writeln(p)；
for i:=1 to p do
writeln(a[i])；
end；
end.
状态: Unaccepted
测评机： Xeond[6]
得分： 70分
提交日期： 2011-7-24 13:06:00
有效耗时： 1299毫秒
测试结果1: 通过本测试点|有效耗时188ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 输出过少|用户输出数据少于标准输出的50%[标准输出30位|选手输出4位]
测试结果4: 通过本测试点|有效耗时188ms
测试结果5: 通过本测试点|有效耗时203ms
测试结果6: 通过本测试点|有效耗时266ms
测试结果7: 通过本测试点|有效耗时203ms
测试结果8: 通过本测试点|有效耗时204ms
测试结果9: 选手程序运行超过时限
测试结果10: 输出过少|用户输出数据少于标准输出的50%[标准输出338906位|选手输出1400位]