Usaco 1.5.2 回文质数（Prime Palindromes）

最新推荐文章于 2024-08-02 00:05:49 发布

Nameless_05

最新推荐文章于 2024-08-02 00:05:49 发布

阅读量586

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/Nameless_05/article/details/6662253

Usaco 同时被 2 个专栏收录

22 篇文章

订阅专栏

质数

3 篇文章

订阅专栏

本文介绍了一道算法题目——求解指定区间内的回文质数，并提供了Pascal语言实现的示例代码。讨论了两种解决策略：生成素数后再判断回文特性，或生成回文数后再检查其是否为质数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目：	回文质数
来源：	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