USACO 1.5 回文质数-优快云博客

本文链接：https://blog.youkuaiyun.com/chrisblogtk/article/details/51099869

本文介绍了一种算法，用于在指定范围内找出所有既是质数又是回文数的数字（回文质数）。通过筛法筛选质数，并使用字符串操作判断其是否为回文数。

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

Description

　　因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的)，所以 151 号是回文质数。
　　写一个程序来找出范围[a,b](5 <= a < b <= 100,000,000)间的所有回文质数;

Input

第 1 行: 二个整数 a 和 b .

Output

输出一个回文质数的列表，一行一个。

Sample Input

5 500

Sample Output

解题思路：先用筛数法把素数筛出来，再判断它是不是回文数，如果是就输出。

程序：

var

  i,j,n,m:longint;

  a:array[2..10000000] of boolean;

function huiwen(x:longint):boolean;

var

    i,j:longint;

    s:string;

  begin

    huiwen:=true;

    str(x,s);

    i:=0;

    j:=1+length(s);

    while i<=length(s) div 2 do

      begin

        inc(i);

        dec(j);

        if s[i]<>s[j] then begin huiwen:=false; break; end;

      end;

end;

begin

  read(n,m);

  if m>10000000 then m:=10000000;

  for i:=2 to m do

    a[i]:=true;

  for i:=2 to trunc(sqrt(m)) do

    if a[i] then for j:=2 to m div i do

                   a[i*j]:=false;

  for i:=n to m do

    if (a[i]) and (huiwen(i)) then writeln(i);

end.

USACO&nbsp;1.5&nbsp;回文质数