【USACO1.5】回文质数 Prime Palindromes

题目：

题目描述

因为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.//谢绝鸡蛋，多多点赞！