编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 666ms

├ 测试数据 08：答案正确... 572ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：1238ms

var hw:Array [1..100000000] of longint;

n,m,i,j,q,gs:longint;

st:string;

t:boolean;

function fac(f:longint):boolean;

var j:longint;

begin

fac:=true;

for j:=2 to trunc(sqrt(f)) do

if f mod j=0 then begin fac:=false;break; end;

end;

begin

readln(n,m);

for i:=n to m do

begin

str(i,st);

q:=length(st);

for j:=1 to length(st) do

begin

if st[q]=st[j] then t:=true

else t:=false;

if t=false then break;

dec(q);

end;

if t=true then begin inc(gs);if fac(i)=true then writeln(i);end;

end;

end.

为什么错了?