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

Minh Thiện

Viết chương trình kiểm tra xem N có phải là số nguyên tố không . Biết N được nhập từ bàn phím

híp
14 tháng 3 2019 lúc 20:40

uses crt;

var i,n:intger;

begin

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

if n<=1 then writeln('N khong phai so nguyen to') else

begin

i:=2;

while (n mod i<>0) do i:=i+1;

if i=n then writeln(n,'la so nguyen to') else writeln(n,'khong phai la so nguyen to');

end;

readln

end.

Bình luận (1)

Các câu hỏi tương tự
Vỹ Thiên
Xem chi tiết
Ne Su
Xem chi tiết
Đinh Trần Thiên Phú 8A2
Xem chi tiết
khanh nguyen
Xem chi tiết
trần Thị Mỹ Duyên
Xem chi tiết
Eriken
Xem chi tiết
Eriken
Xem chi tiết
Trần Ngọc Nhã Linh
Xem chi tiết
Eriken
Xem chi tiết