Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
huy
Xem chi tiết
Nguyễn phương mai
Xem chi tiết
way big
Xem chi tiết
Quỳnh Chi Nguyễn
Xem chi tiết
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.

Văn Khoa Hồ
Xem chi tiết
AUROUSFV TR
Xem chi tiết
Trần Hiếu Anh
19 tháng 3 2022 lúc 16:47

753?

Vũ Phạm Gia Hân
19 tháng 3 2022 lúc 16:47

số 753

Keiko Hashitou
19 tháng 3 2022 lúc 16:48

số cần tìm là 753

Lê Trọng Quý
Xem chi tiết
Lê Thị Như Quỳnh
16 tháng 9 2023 lúc 12:17

nam moooooooooooooooooooooooooooooooo

 

Vũ lệ Quyên
Xem chi tiết
Vương Thị Diễm Quỳnh
14 tháng 10 2015 lúc 21:11

đúng vì đó là 2 và 3

đúng VD 3;5;7

sai vì nguyên tố 2 chẵn

sai nguyên tố 2 tận cùng là 2

tick nha có giải thick đàng hoàng đó

fadfadfad
Xem chi tiết
hoàng long tuấn
31 tháng 3 2019 lúc 16:42

số cần tìm là 1979