回文质数
題意
找出范圍[a,b](5 <= a < b <= 100,000,000)( 一億)間的所有回文質數;
分析
找出所有的回文數再判斷它們是不是質數（素數）.
var
a,b,l:longint;
function work(w:longint):longint;
var
t,s:longint;
begin
? ? t:=w;
? ? s:=0;
? ? while t<>0 do
? ? begin
? ? ? ? inc(s);
? ? ? ? t:=t div 10;
? ? end;
? ? work:=s;
end;
function ss(s:string):longint;
var
sz,i:longint;
begin
? ? if (length(s)=2)and(s<>'11') then exit(0);
? ? val(s,sz);
? ? if (sz<a)or(sz>b) then exit(0);
? ? for i:=2 to trunc(sqrt(sz)) do
? ? if sz mod i=0 then
? ? begin
? ? ? ? exit(0);
? ? ? ? break;
? ? end;
? ? ss:=sz;
end;
procedure hw(k:longint);
var
w1,w2,i,j,bz:longint;
s1,s2:string;
begin
? ? if k>l then exit;
? ? if k mod 2=0 then
? ? begin
? ? ? ? w1:=1;
? ? ? ? w2:=9;
? ? ? ? for i:=1 to k div 2-1 do
? ? ? ? begin
? ? ? ? ? ? w1:=w1*10;
? ? ? ? ? ? w2:=w2*10+9;
? ? ? ? end;
? ? ? ? for i:=w1 to w2 do
? ? ? ? begin
? ? ? ? ? ? str(i,s1);
? ? ? ? ? ? s2:=s1;
? ? ? ? ? ? for j:=length(s1) downto 1 do
? ? ? ? ? ? s2:=s2+s1[j];
? ? ? ? ? ? bz:=ss(s2);
? ? ? ? ? ? if bz<>0 then writeln(bz);
? ? ? ? end;
? ? end else
? ? begin
? ? ? ? w1:=1;
? ? ? ? w2:=9;
? ? ? ? for i:=1 to (k+1) div 2-1 do
? ? ? ? begin
? ? ? ? ? ? w1:=w1*10;
? ? ? ? ? ? w2:=w2*10+9;
? ? ? ? end;
? ? ? ? for i:=w1 to w2 do
? ? ? ? begin
? ? ? ? ? ? str(i,s1);
? ? ? ? ? ? s2:=s1;
? ? ? ? ? ? for j:=length(s1)-1 downto 1 do
? ? ? ? ? ? s2:=s2+s1[j];
? ? ? ? ? ? bz:=ss(s2);
? ? ? ? ? ? if bz<>0 then writeln(bz);
? ? ? ? end;
? ? end;
? ? hw(k+1);
end;
begin
? ? read(a,b);
? ? l:=work(b);
? ? hw(1);
end.
轉載于:https://www.cnblogs.com/YYC-0304/p/9500195.html
總結
