董阴 2013-12-14 07:03:33
点我顶贴
收藏
删除
WA90？？第十个测试点总是超时，求大牛指教：
program p382;
var s,s1:ansistring;
a:array[1..1000000]of longint;
i,j:longint;
begin
readln(s1);readln(s);
for i:=1 to length(s)-length(s1)+1 do
if copy(s,i,length(s1))=s1 then
begin
inc(j);a[j]:=i;
end;
if j>0 then
begin
writeln(j);for i:=1 to j do writeln(a[i]);
end
else write('There must be something wrong.');
end.