Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thảo Nguyên Nguyễn

viết chương trình nhập vào 1 số nguyên N . In ra màn hình cho biết N có phải là số nguyên tố hay không ?

 

Kiều Vũ Linh
29 tháng 3 2022 lúc 8:29

Var i,n,dem:integer;

begin

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

for i:=1 to n do

if n mod i = 0 then dem:=dem+1;

if dem=2 then write(n,' la so nguyen to')

else write(n,' khong la so nguyen to');

readln;

end.


Các câu hỏi tương tự
8/1 Ngọc Hân
Xem chi tiết
WinX Enchantix Phép Thuậ...
Xem chi tiết
Selena Flynn
Xem chi tiết
Huy Nguyễn
Xem chi tiết
nam bảo
Xem chi tiết
Lê Huỳnh Nhân
Xem chi tiết
KenShi
Xem chi tiết
Phan Thu
Xem chi tiết
Dân Phạm Văn
Xem chi tiết