Đó 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.

VD : số 71 -> 17

79 nua

11,17,19,

Có hai số đó là 17 ; 37

Số 17 và 71; số 37 và 73; số 79 và 97

Do đề ko thấy yêu cầu gì là 2 số phân biệt nên làm theo hướng đó.

Không gian mẫu: \(12^2=144\)

Chọn số nguyên tố chẵn: có đúng 1 cách là chọn số 2

Chọn số nguyên tố lẻ nhỏ hơn 13: có 4 cách (3,5,7,11)

\(\Rightarrow2.4.2!=16\) cách

Xác suất: \(P=\dfrac{16}{144}=...\)

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.