记录编号 |
76551 |
评测结果 |
AAAAAAAAA |
题目名称 |
[USACO 1.5] 回文质数 |
最终得分 |
100 |
用户昵称 |
铁策 |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.002 s |
提交时间 |
2013-10-30 21:23:28 |
内存使用 |
0.17 MiB |
显示代码纯文本
var
a:array[1..781] of longint;
i,m,n:longint;
begin
assign(input,'pprime.in');
reset(input);
assign(output,'pprime.out');
rewrite(output);
read(m,n);
a[1]:=2;
a[2]:=3;
a[3]:=5;
a[4]:=7;
a[5]:=11;
a[6]:=101;
a[7]:=131;
a[8]:=151;
a[9]:=181;
a[10]:=191;
a[11]:=313;
a[12]:=353;
a[13]:=373;
a[14]:=383;
a[15]:=727;
a[16]:=757;
a[17]:=787;
a[18]:=797;
a[19]:=919;
a[20]:=929;
a[21]:=10301;
a[22]:=10501;
a[23]:=10601;
a[24]:=11311;
a[25]:=11411;
a[26]:=12421;
a[27]:=12721;
a[28]:=12821;
a[29]:=13331;
a[30]:=13831;
a[31]:=13931;
a[32]:=14341;
a[33]:=14741;
a[34]:=15451;
a[35]:=15551;
a[36]:=16061;
a[37]:=16361;
a[38]:=16561;
a[39]:=16661;
a[40]:=17471;
a[41]:=17971;
a[42]:=18181;
a[43]:=18481;
a[44]:=19391;
a[45]:=19891;
a[46]:=19991;
a[47]:=30103;
a[48]:=30203;
a[49]:=30403;
a[50]:=30703;
a[51]:=30803;
a[52]:=31013;
a[53]:=31513;
a[54]:=32323;
a[55]:=32423;
a[56]:=33533;
a[57]:=34543;
a[58]:=34843;
a[59]:=35053;
a[60]:=35153;
a[61]:=35353;
a[62]:=35753;
a[63]:=36263;
a[64]:=36563;
a[65]:=37273;
a[66]:=37573;
a[67]:=38083;
a[68]:=38183;
a[69]:=38783;
a[70]:=39293;
a[71]:=70207;
a[72]:=70507;
a[73]:=70607;
a[74]:=71317;
a[75]:=71917;
a[76]:=72227;
a[77]:=72727;
a[78]:=73037;
a[79]:=73237;
a[80]:=73637;
a[81]:=74047;
a[82]:=74747;
a[83]:=75557;
a[84]:=76367;
a[85]:=76667;
a[86]:=77377;
a[87]:=77477;
a[88]:=77977;
a[89]:=78487;
a[90]:=78787;
a[91]:=78887;
a[92]:=79397;
a[93]:=79697;
a[94]:=79997;
a[95]:=90709;
a[96]:=91019;
a[97]:=93139;
a[98]:=93239;
a[99]:=93739;
a[100]:=94049;
a[101]:=94349;
a[102]:=94649;
a[103]:=94849;
a[104]:=94949;
a[105]:=95959;
a[106]:=96269;
a[107]:=96469;
a[108]:=96769;
a[109]:=97379;
a[110]:=97579;
a[111]:=97879;
a[112]:=98389;
a[113]:=98689;
a[114]:=1003001;
a[115]:=1008001;
a[116]:=1022201;
a[117]:=1028201;
a[118]:=1035301;
a[119]:=1043401;
a[120]:=1055501;
a[121]:=1062601;
a[122]:=1065601;
a[123]:=1074701;
a[124]:=1082801;
a[125]:=1085801;
a[126]:=1092901;
a[127]:=1093901;
a[128]:=1114111;
a[129]:=1117111;
a[130]:=1120211;
a[131]:=1123211;
a[132]:=1126211;
a[133]:=1129211;
a[134]:=1134311;
a[135]:=1145411;
a[136]:=1150511;
a[137]:=1153511;
a[138]:=1160611;
a[139]:=1163611;
a[140]:=1175711;
a[141]:=1177711;
a[142]:=1178711;
a[143]:=1180811;
a[144]:=1183811;
a[145]:=1186811;
a[146]:=1190911;
a[147]:=1193911;
a[148]:=1196911;
a[149]:=1201021;
a[150]:=1208021;
a[151]:=1212121;
a[152]:=1215121;
a[153]:=1218121;
a[154]:=1221221;
a[155]:=1235321;
a[156]:=1242421;
a[157]:=1243421;
a[158]:=1245421;
a[159]:=1250521;
a[160]:=1253521;
a[161]:=1257521;
a[162]:=1262621;
a[163]:=1268621;
a[164]:=1273721;
a[165]:=1276721;
a[166]:=1278721;
a[167]:=1280821;
a[168]:=1281821;
a[169]:=1286821;
a[170]:=1287821;
a[171]:=1300031;
a[172]:=1303031;
a[173]:=1311131;
a[174]:=1317131;
a[175]:=1327231;
a[176]:=1328231;
a[177]:=1333331;
a[178]:=1335331;
a[179]:=1338331;
a[180]:=1343431;
a[181]:=1360631;
a[182]:=1362631;
a[183]:=1363631;
a[184]:=1371731;
a[185]:=1374731;
a[186]:=1390931;
a[187]:=1407041;
a[188]:=1409041;
a[189]:=1411141;
a[190]:=1412141;
a[191]:=1422241;
a[192]:=1437341;
a[193]:=1444441;
a[194]:=1447441;
a[195]:=1452541;
a[196]:=1456541;
a[197]:=1461641;
a[198]:=1463641;
a[199]:=1464641;
a[200]:=1469641;
a[201]:=1486841;
a[202]:=1489841;
a[203]:=1490941;
a[204]:=1496941;
a[205]:=1508051;
a[206]:=1513151;
a[207]:=1520251;
a[208]:=1532351;
a[209]:=1535351;
a[210]:=1542451;
a[211]:=1548451;
a[212]:=1550551;
a[213]:=1551551;
a[214]:=1556551;
a[215]:=1557551;
a[216]:=1565651;
a[217]:=1572751;
a[218]:=1579751;
a[219]:=1580851;
a[220]:=1583851;
a[221]:=1589851;
a[222]:=1594951;
a[223]:=1597951;
a[224]:=1598951;
a[225]:=1600061;
a[226]:=1609061;
a[227]:=1611161;
a[228]:=1616161;
a[229]:=1628261;
a[230]:=1630361;
a[231]:=1633361;
a[232]:=1640461;
a[233]:=1643461;
a[234]:=1646461;
a[235]:=1654561;
a[236]:=1657561;
a[237]:=1658561;
a[238]:=1660661;
a[239]:=1670761;
a[240]:=1684861;
a[241]:=1685861;
a[242]:=1688861;
a[243]:=1695961;
a[244]:=1703071;
a[245]:=1707071;
a[246]:=1712171;
a[247]:=1714171;
a[248]:=1730371;
a[249]:=1734371;
a[250]:=1737371;
a[251]:=1748471;
a[252]:=1755571;
a[253]:=1761671;
a[254]:=1764671;
a[255]:=1777771;
a[256]:=1793971;
a[257]:=1802081;
a[258]:=1805081;
a[259]:=1820281;
a[260]:=1823281;
a[261]:=1824281;
a[262]:=1826281;
a[263]:=1829281;
a[264]:=1831381;
a[265]:=1832381;
a[266]:=1842481;
a[267]:=1851581;
a[268]:=1853581;
a[269]:=1856581;
a[270]:=1865681;
a[271]:=1876781;
a[272]:=1878781;
a[273]:=1879781;
a[274]:=1880881;
a[275]:=1881881;
a[276]:=1883881;
a[277]:=1884881;
a[278]:=1895981;
a[279]:=1903091;
a[280]:=1908091;
a[281]:=1909091;
a[282]:=1917191;
a[283]:=1924291;
a[284]:=1930391;
a[285]:=1936391;
a[286]:=1941491;
a[287]:=1951591;
a[288]:=1952591;
a[289]:=1957591;
a[290]:=1958591;
a[291]:=1963691;
a[292]:=1968691;
a[293]:=1969691;
a[294]:=1970791;
a[295]:=1976791;
a[296]:=1981891;
a[297]:=1982891;
a[298]:=1984891;
a[299]:=1987891;
a[300]:=1988891;
a[301]:=1993991;
a[302]:=1995991;
a[303]:=1998991;
a[304]:=3001003;
a[305]:=3002003;
a[306]:=3007003;
a[307]:=3016103;
a[308]:=3026203;
a[309]:=3064603;
a[310]:=3065603;
a[311]:=3072703;
a[312]:=3073703;
a[313]:=3075703;
a[314]:=3083803;
a[315]:=3089803;
a[316]:=3091903;
a[317]:=3095903;
a[318]:=3103013;
a[319]:=3106013;
a[320]:=3127213;
a[321]:=3135313;
a[322]:=3140413;
a[323]:=3155513;
a[324]:=3158513;
a[325]:=3160613;
a[326]:=3166613;
a[327]:=3181813;
a[328]:=3187813;
a[329]:=3193913;
a[330]:=3196913;
a[331]:=3198913;
a[332]:=3211123;
a[333]:=3212123;
a[334]:=3218123;
a[335]:=3222223;
a[336]:=3223223;
a[337]:=3228223;
a[338]:=3233323;
a[339]:=3236323;
a[340]:=3241423;
a[341]:=3245423;
a[342]:=3252523;
a[343]:=3256523;
a[344]:=3258523;
a[345]:=3260623;
a[346]:=3267623;
a[347]:=3272723;
a[348]:=3283823;
a[349]:=3285823;
a[350]:=3286823;
a[351]:=3288823;
a[352]:=3291923;
a[353]:=3293923;
a[354]:=3304033;
a[355]:=3305033;
a[356]:=3307033;
a[357]:=3310133;
a[358]:=3315133;
a[359]:=3319133;
a[360]:=3321233;
a[361]:=3329233;
a[362]:=3331333;
a[363]:=3337333;
a[364]:=3343433;
a[365]:=3353533;
a[366]:=3362633;
a[367]:=3364633;
a[368]:=3365633;
a[369]:=3368633;
a[370]:=3380833;
a[371]:=3391933;
a[372]:=3392933;
a[373]:=3400043;
a[374]:=3411143;
a[375]:=3417143;
a[376]:=3424243;
a[377]:=3425243;
a[378]:=3427243;
a[379]:=3439343;
a[380]:=3441443;
a[381]:=3443443;
a[382]:=3444443;
a[383]:=3447443;
a[384]:=3449443;
a[385]:=3452543;
a[386]:=3460643;
a[387]:=3466643;
a[388]:=3470743;
a[389]:=3479743;
a[390]:=3485843;
a[391]:=3487843;
a[392]:=3503053;
a[393]:=3515153;
a[394]:=3517153;
a[395]:=3528253;
a[396]:=3541453;
a[397]:=3553553;
a[398]:=3558553;
a[399]:=3563653;
a[400]:=3569653;
a[401]:=3586853;
a[402]:=3589853;
a[403]:=3590953;
a[404]:=3591953;
a[405]:=3594953;
a[406]:=3601063;
a[407]:=3607063;
a[408]:=3618163;
a[409]:=3621263;
a[410]:=3627263;
a[411]:=3635363;
a[412]:=3643463;
a[413]:=3646463;
a[414]:=3670763;
a[415]:=3673763;
a[416]:=3680863;
a[417]:=3689863;
a[418]:=3698963;
a[419]:=3708073;
a[420]:=3709073;
a[421]:=3716173;
a[422]:=3717173;
a[423]:=3721273;
a[424]:=3722273;
a[425]:=3728273;
a[426]:=3732373;
a[427]:=3743473;
a[428]:=3746473;
a[429]:=3762673;
a[430]:=3763673;
a[431]:=3765673;
a[432]:=3768673;
a[433]:=3769673;
a[434]:=3773773;
a[435]:=3774773;
a[436]:=3781873;
a[437]:=3784873;
a[438]:=3792973;
a[439]:=3793973;
a[440]:=3799973;
a[441]:=3804083;
a[442]:=3806083;
a[443]:=3812183;
a[444]:=3814183;
a[445]:=3826283;
a[446]:=3829283;
a[447]:=3836383;
a[448]:=3842483;
a[449]:=3853583;
a[450]:=3858583;
a[451]:=3863683;
a[452]:=3864683;
a[453]:=3867683;
a[454]:=3869683;
a[455]:=3871783;
a[456]:=3878783;
a[457]:=3893983;
a[458]:=3899983;
a[459]:=3913193;
a[460]:=3916193;
a[461]:=3918193;
a[462]:=3924293;
a[463]:=3927293;
a[464]:=3931393;
a[465]:=3938393;
a[466]:=3942493;
a[467]:=3946493;
a[468]:=3948493;
a[469]:=3964693;
a[470]:=3970793;
a[471]:=3983893;
a[472]:=3991993;
a[473]:=3994993;
a[474]:=3997993;
a[475]:=3998993;
a[476]:=7014107;
a[477]:=7035307;
a[478]:=7036307;
a[479]:=7041407;
a[480]:=7046407;
a[481]:=7057507;
a[482]:=7065607;
a[483]:=7069607;
a[484]:=7073707;
a[485]:=7079707;
a[486]:=7082807;
a[487]:=7084807;
a[488]:=7087807;
a[489]:=7093907;
a[490]:=7096907;
a[491]:=7100017;
a[492]:=7114117;
a[493]:=7115117;
a[494]:=7118117;
a[495]:=7129217;
a[496]:=7134317;
a[497]:=7136317;
a[498]:=7141417;
a[499]:=7145417;
a[500]:=7155517;
a[501]:=7156517;
a[502]:=7158517;
a[503]:=7159517;
a[504]:=7177717;
a[505]:=7190917;
a[506]:=7194917;
a[507]:=7215127;
a[508]:=7226227;
a[509]:=7246427;
a[510]:=7249427;
a[511]:=7250527;
a[512]:=7256527;
a[513]:=7257527;
a[514]:=7261627;
a[515]:=7267627;
a[516]:=7276727;
a[517]:=7278727;
a[518]:=7291927;
a[519]:=7300037;
a[520]:=7302037;
a[521]:=7310137;
a[522]:=7314137;
a[523]:=7324237;
a[524]:=7327237;
a[525]:=7347437;
a[526]:=7352537;
a[527]:=7354537;
a[528]:=7362637;
a[529]:=7365637;
a[530]:=7381837;
a[531]:=7388837;
a[532]:=7392937;
a[533]:=7401047;
a[534]:=7403047;
a[535]:=7409047;
a[536]:=7415147;
a[537]:=7434347;
a[538]:=7436347;
a[539]:=7439347;
a[540]:=7452547;
a[541]:=7461647;
a[542]:=7466647;
a[543]:=7472747;
a[544]:=7475747;
a[545]:=7485847;
a[546]:=7486847;
a[547]:=7489847;
a[548]:=7493947;
a[549]:=7507057;
a[550]:=7508057;
a[551]:=7518157;
a[552]:=7519157;
a[553]:=7521257;
a[554]:=7527257;
a[555]:=7540457;
a[556]:=7562657;
a[557]:=7564657;
a[558]:=7576757;
a[559]:=7586857;
a[560]:=7592957;
a[561]:=7594957;
a[562]:=7600067;
a[563]:=7611167;
a[564]:=7619167;
a[565]:=7622267;
a[566]:=7630367;
a[567]:=7632367;
a[568]:=7644467;
a[569]:=7654567;
a[570]:=7662667;
a[571]:=7665667;
a[572]:=7666667;
a[573]:=7668667;
a[574]:=7669667;
a[575]:=7674767;
a[576]:=7681867;
a[577]:=7690967;
a[578]:=7693967;
a[579]:=7696967;
a[580]:=7715177;
a[581]:=7718177;
a[582]:=7722277;
a[583]:=7729277;
a[584]:=7733377;
a[585]:=7742477;
a[586]:=7747477;
a[587]:=7750577;
a[588]:=7758577;
a[589]:=7764677;
a[590]:=7772777;
a[591]:=7774777;
a[592]:=7778777;
a[593]:=7782877;
a[594]:=7783877;
a[595]:=7791977;
a[596]:=7794977;
a[597]:=7807087;
a[598]:=7819187;
a[599]:=7820287;
a[600]:=7821287;
a[601]:=7831387;
a[602]:=7832387;
a[603]:=7838387;
a[604]:=7843487;
a[605]:=7850587;
a[606]:=7856587;
a[607]:=7865687;
a[608]:=7867687;
a[609]:=7868687;
a[610]:=7873787;
a[611]:=7884887;
a[612]:=7891987;
a[613]:=7897987;
a[614]:=7913197;
a[615]:=7916197;
a[616]:=7930397;
a[617]:=7933397;
a[618]:=7935397;
a[619]:=7938397;
a[620]:=7941497;
a[621]:=7943497;
a[622]:=7949497;
a[623]:=7957597;
a[624]:=7958597;
a[625]:=7960697;
a[626]:=7977797;
a[627]:=7984897;
a[628]:=7985897;
a[629]:=7987897;
a[630]:=7996997;
a[631]:=9002009;
a[632]:=9015109;
a[633]:=9024209;
a[634]:=9037309;
a[635]:=9042409;
a[636]:=9043409;
a[637]:=9045409;
a[638]:=9046409;
a[639]:=9049409;
a[640]:=9067609;
a[641]:=9073709;
a[642]:=9076709;
a[643]:=9078709;
a[644]:=9091909;
a[645]:=9095909;
a[646]:=9103019;
a[647]:=9109019;
a[648]:=9110119;
a[649]:=9127219;
a[650]:=9128219;
a[651]:=9136319;
a[652]:=9149419;
a[653]:=9169619;
a[654]:=9173719;
a[655]:=9174719;
a[656]:=9179719;
a[657]:=9185819;
a[658]:=9196919;
a[659]:=9199919;
a[660]:=9200029;
a[661]:=9209029;
a[662]:=9212129;
a[663]:=9217129;
a[664]:=9222229;
a[665]:=9223229;
a[666]:=9230329;
a[667]:=9231329;
a[668]:=9255529;
a[669]:=9269629;
a[670]:=9271729;
a[671]:=9277729;
a[672]:=9280829;
a[673]:=9286829;
a[674]:=9289829;
a[675]:=9318139;
a[676]:=9320239;
a[677]:=9324239;
a[678]:=9329239;
a[679]:=9332339;
a[680]:=9338339;
a[681]:=9351539;
a[682]:=9357539;
a[683]:=9375739;
a[684]:=9384839;
a[685]:=9397939;
a[686]:=9400049;
a[687]:=9414149;
a[688]:=9419149;
a[689]:=9433349;
a[690]:=9439349;
a[691]:=9440449;
a[692]:=9446449;
a[693]:=9451549;
a[694]:=9470749;
a[695]:=9477749;
a[696]:=9492949;
a[697]:=9493949;
a[698]:=9495949;
a[699]:=9504059;
a[700]:=9514159;
a[701]:=9526259;
a[702]:=9529259;
a[703]:=9547459;
a[704]:=9556559;
a[705]:=9558559;
a[706]:=9561659;
a[707]:=9577759;
a[708]:=9583859;
a[709]:=9585859;
a[710]:=9586859;
a[711]:=9601069;
a[712]:=9602069;
a[713]:=9604069;
a[714]:=9610169;
a[715]:=9620269;
a[716]:=9624269;
a[717]:=9626269;
a[718]:=9632369;
a[719]:=9634369;
a[720]:=9645469;
a[721]:=9650569;
a[722]:=9657569;
a[723]:=9670769;
a[724]:=9686869;
a[725]:=9700079;
a[726]:=9709079;
a[727]:=9711179;
a[728]:=9714179;
a[729]:=9724279;
a[730]:=9727279;
a[731]:=9732379;
a[732]:=9733379;
a[733]:=9743479;
a[734]:=9749479;
a[735]:=9752579;
a[736]:=9754579;
a[737]:=9758579;
a[738]:=9762679;
a[739]:=9770779;
a[740]:=9776779;
a[741]:=9779779;
a[742]:=9781879;
a[743]:=9782879;
a[744]:=9787879;
a[745]:=9788879;
a[746]:=9795979;
a[747]:=9801089;
a[748]:=9807089;
a[749]:=9809089;
a[750]:=9817189;
a[751]:=9818189;
a[752]:=9820289;
a[753]:=9822289;
a[754]:=9836389;
a[755]:=9837389;
a[756]:=9845489;
a[757]:=9852589;
a[758]:=9871789;
a[759]:=9888889;
a[760]:=9889889;
a[761]:=9896989;
a[762]:=9902099;
a[763]:=9907099;
a[764]:=9908099;
a[765]:=9916199;
a[766]:=9918199;
a[767]:=9919199;
a[768]:=9921299;
a[769]:=9923299;
a[770]:=9926299;
a[771]:=9927299;
a[772]:=9931399;
a[773]:=9932399;
a[774]:=9935399;
a[775]:=9938399;
a[776]:=9957599;
a[777]:=9965699;
a[778]:=9978799;
a[779]:=9980899;
a[780]:=9981899;
a[781]:=9989899;
for i:=1 to 781 do
if (a[i]>=m) and( a[i]<=n) then writeln(a[i]);
end.