题目:
题目描述
因为151既是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 是回文质数。
写一个程序来找出范围[a,b](5 <= a < b <= 100,000,000)( 一亿)间的所有回文质数;
输入输出格式
输入格式:
第 1 行: 二个整数 a 和 b .
输出格式:
输出一个回文质数的列表,一行一个。
作者思路:先判断回文,再判断质数,只需判断奇数。
代码:
var a,b,i:longint;
function turn(a:longint):boolean;
var t,i,ans:longint;
begin
ans:=0;
t:=a;
while t<>0 do
begin
i:=t mod 10;
t:=t div 10;
ans:=ans*10+i;
end;
if ans=a then exit(true) else exit(false);
end;//判断回文
function znum(a:longint):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then exit(false);
exit(true);
end;//判断质数
begin
read(a,b);
if b>9989899 then b:=9989899;
for i:=a div 2 to b div 2 do
if (turn(2*i+1))and(znum(2*i+1)) then writeln(2*i+1);
end.//谢绝鸡蛋,多多点赞!