捕风捉影

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Unaccepted 有效得分：70 有效耗时：278ms

var i,m,n:longint;s:ansistring;

function sushu(the_temp:longint):boolean;

var j:longint;

begin

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

if the_temp mod j=0 then exit(false);

exit(true);

end;

function huiwenshu(the_tp:longint):boolean;

var k:longint;ts:ansistring;l:integer;

begin

str(the_tp,ts);l:=length(ts);

for k:=1 to l div 2 do

if ts[k]ts[l-k+1] then exit(false);

exit(true);

end;

begin

read(m,n);

for i:=m to n do begin

str(i,s);

if (odd(length(s)))or(s='11')then

if (sushu(i))and(huiwenshu(i))then writeln(i);

end;

end.