Usaco 1.5.2 回文质数（Prime Palindromes）

最新推荐文章于 2024-02-28 18:07:13 发布

Nameless_05

最新推荐文章于 2024-02-28 18:07:13 发布

阅读量552

点赞数

分类专栏： Usaco 质数文章标签： output pascal input

本文链接：https://blog.csdn.net/Nameless_05/article/details/6662253

版权

Usaco 同时被 2 个专栏收录

22 篇文章 0 订阅

订阅专栏

质数

3 篇文章 0 订阅

订阅专栏

题目：	回文质数
来源：	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 Nameless
TASK:pprime
LANG: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