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

Quỳnh Chi Nguyễn

Nhập vào một số nguyên n . Kiểm tra xem nó có phải số siêu nguyên tố hay không. Ai giúp e vs ạ :(

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

uses crt;

var a,x:longint;

{------------------ham-kiem-tra-so-nguyen-to---------------}

function ktnt(x:longint):boolean;

var kt:boolean;   

i:longint;

begin   

kt:=true;   

for i:=2 to trunc(sqrt(x)) do     

if x mod i=0 then       

begin           

kt:=false;           

break;       

end;   

if kt=true then ktnt:=true   

else ktnt:=false;

end;

{---------------chuong-trinh-chinh-------------------}

begin

clrscr;

repeat 

write('Nhap a='); readln(a);

until a>10;

if ktnt(a)=true then   

begin     

x:=a;     

repeat         

a:=a div 10;         

if ktnt(a)=true then a:=a div 10;     

until a<10;     

if (ktnt(a)=true) and (a>1) then writeln(x,' la so sieu nguyen to')     

else writeln(x,' khong la so sieu nguyen to');   

end

else writeln(a,' khong la so sieu nguyen to');

readln;

end.

Bình luận (0)

bn ơi cấu hỏi hơi bị khó hiểu xíu 

Bình luận (0)

Các câu hỏi tương tự
Thiện
Xem chi tiết
hung nguyen
Xem chi tiết
Kamato Heiji
Xem chi tiết
phamthiminhanh
Xem chi tiết
misha
Xem chi tiết
Dienn
Xem chi tiết
lmao lmao lmao
Xem chi tiết
Bét Đe
Xem chi tiết
Ngô Thị Tân
Xem chi tiết