Số 13 là số nguyên tố có tính chất : nếu đổi chỗ hai chữ số của nó thì ta lại được một số nguyên tố, đó là số 31 . trong các số nguyên tố nhỏ hơn 100 , những số nào cũng có tính chất như số 13 ?
Bạn nào biết giúp mình nha !!!
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var n,kt,snt,b,m:longint;
{-----------------------------}
procedure nhap(var a:longint);
begin
write('nhap n:'); readln(a);
end;
{-------------------------------------------}
function ktnt(var x:longint):integer;
var kt,i,kt1,j:integer;
begin
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then ktnt:=1
else ktnt:=0;
end;
{-----------------------------------------------------}
BEGIN
clrscr;
nhap(n);
for m:=10 to n do
{-----------------------------------------------}
begin
begin
b:=m;
repeat
kt:=ktnt(b);
if kt=0 then break
else b:=b div 10;
until b<10;
if (ktnt(b)=1) and (b>1) then write(m,' ')
end;
end;
{-------------------------------------------------}
readln;
END.
Đó là các số:
11; 71 và 17; 37 và 73; 79 và 97
ủng hộ đi~
Các số có tính chất như số 13 được gọi là các emirp; trong các số nguyên tố nhỏ hơn 100; các số có tính chất như số 13 là:
17; 31; 37; 71; 73 ; 79; 97.