YOMEDIA
NONE

Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.

Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.

Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.

Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.

Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.

Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Thuy Kim

    uses crt;

    var a,b:array[1..100000]of integer;    

    i,n,kt,j,dem,x,y,kt1:integer;    

    st,st1:string;

    begin

    clrscr;

    write('Nhap n=');

    readln(n);

    for i:=1 to n do  

    begin      

    write('A[',i,']=');

    readln(a[i]);  

    end;

    dem:=0;

    for i:=1 to n do  

    if a[i]>1 then      

    begin        

    kt:=0;        

    for j:=2 to a[i]-1 do          

    if a[i] mod j=0 then              

    begin                

    kt:=1;                

    break;              

    end;        

    if kt=0 then            

    begin              

    inc(dem);              

    b[dem]:=a[i];            

    end;      

    end;

    for i:=1 to dem do  

    begin      

    str(a[i],st);      

    st1:='';      

    for j:=length(st) downto 1 do        

    st1:=st1+st[j];      

    val(st1,x,y);      

    kt1:=0;      

    for j:=2 to x-1 do        

    if x mod j=0 then          

    begin              

    kt1:=1;              

    break;          

    end;      

    if kt1=0 then write(a[i]:4);  

    end;

    readln;

    end.

      bởi Thuy Kim 18/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON