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

Ngô Thị Tân
Xem chi tiết
Nguyễn Hoàng Duy
12 tháng 12 2023 lúc 20:17

Pascal hay C++

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

nam moooooooooooooooooooooooooooooooo

 

Nguyễn phương mai
Xem chi tiết
huy
Xem chi tiết
Hoàng Văn Dũng
Xem chi tiết
Nguyễn Đình Vũ
Xem chi tiết
TBQT
12 tháng 6 2018 lúc 17:01

79 nua

Lương Hữu Thành
12 tháng 6 2018 lúc 10:43

11,17,19,

Tobot Z
Xem chi tiết
Ngô Thảo Nguyên
Xem chi tiết