TN

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 ?

 

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

Bình luận (0)

Các câu hỏi tương tự
8H
Xem chi tiết
WT
Xem chi tiết
SF
Xem chi tiết
HN
Xem chi tiết
NB
Xem chi tiết
LN
Xem chi tiết
H24
Xem chi tiết
PT
Xem chi tiết
DV
Xem chi tiết