Question

Một số T gọi là số nguyên tố đối xứng là số thoả mãn 2 yêu cầu sau:

- T là số nguyên tố

- T là một số đối xứng

Cho 2 số nguyên dương A và B, hãy tìm số lượng các số nguyên tố đối xứng thoả mãn A\(\le\)T\(\le\)B

Answer 1

uses crt;
var a,b:longint;
st:string;
nt:array[1..100]of int64;
t,i,j,dem,kt,kt1,d,dnt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
dem:=0;
for t:=a to b do
begin
str(t,st);
kt:=0;
d:=length(st);
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then
begin
dem:=dem+1;
nt[dem]:=t;
end;
end;
dnt:=0;
for i:=1 to dem do
begin
kt1:=0;
for j:=2 to nt[i]-1 do
if nt[i] mod j=0 then kt1:=1;
if kt1=0 then dnt:=dnt+1;
end;
writeln('so luong cac so nguyen to doi xung thoa man lon hon hoac bang ',a,' va nho hon hoac bang ',b,' la: ',dnt);
readln;
end.

Answer 2

uses crt;
var a,b:longint;
st:string;
nt:array[1..100]of int64;
t,i,j,dem,kt,kt1,d,dnt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
dem:=0;
for t:=a to b do
begin
str(t,st);
kt:=0;
d:=length(st);
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then
begin
dem:=dem+1;
nt[dem]:=t;
end;
end;
dnt:=0;
for i:=1 to dem do
begin
kt1:=0;
for j:=2 to nt[i]-1 do
if nt[i] mod j=0 then kt1:=1;
if kt1=0 then dnt:=dnt+1;
end;
writeln('so luong cac so nguyen to doi xung thoa man lon hon hoac bang ',a,' va nho hon hoac bang ',b,' la: ',dnt);
readln;
end.