Usaco 1.5.2 回文质数（Prime Palindromes）

题目：

 回文质数

来源：

 Usaco1.5.2

题目大意：

 求[a,b]内的既是回文又是质数的数，按升序排列输出

数据范围：

 5 <= a < b <= 100,000,000

样例：

 5 500

5

7

11

101

131

151

181

191

313

353

373

383

做题思路：

 根据题意，方法就是先生成素数再判断回文或者先生成回文再判断素数

 第一个方法经实验由于一亿的数据，超空间

 第二个方法提示中给出了个生成回文的方法，好好利用

知识点：

 质数判断、生成回文

{ID:Dount NamelessTASK:pprimeLANG:PASCAL}const q:array[1..9]of longint=(10,0,100,0,1000,0,10000,0,100000);var n,i,j,k,l,r:longint; s:string;function pd(x:longint):boolean;var i:longint;begin pd:=true;  fori:=2 to trunc(sqrt(x)) do if x mod i=0 then exit(false);end;begin assign(input,'pprime.in');reset(input); assign(output,'pprime.out');rewrite(output); readln(l,r); n:=1;  fori:=1 to 9 do   ifi mod 2=1 then{<生成回文>}   while n<q[i] do   begin     str(n,s);     j:=Length(s)-1;     while j>=1 do     begin       s:=s+s[j];       dec(j);     end;     val(s,k);     if (l<=k)and(r>=k)and pd(k) then writeln(k);{<判断是否是素数>}      inc(n);   end else if (i=2)and(l<=11)and(r>=11) then writeln('11');{<偶数长度的特例>} close(input);close(output);end.

题目来源：http://ace.delos.com/usacoprob2?a=RexmW8CclSt&S=pprime