Lập trình đơn giản

Quỳnh Chi Nguyễn

    Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.

    Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73,7 cũng là các số nguyên tố

    Viết chương trình nhập dữ liệu vào là một số nguyên N (10<N<=10^5) và đưa ra kết quả các số siêu nguyên tố nhỏ hơn N    khocroi

 

 

Nguyễn Lê Phước Thịnh
25 tháng 1 2021 lúc 19:03

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.

Bình luận (0)

Các câu hỏi tương tự
Ngô Thị Tân
Xem chi tiết
Trần Minh Hoàng
Xem chi tiết
Quỳnh Chi Nguyễn
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Kamato Heiji
Xem chi tiết
Thiện
Xem chi tiết