Bài 4: Bài toán và thuật toán

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

Kiểm tra tính nguyên tố của 1 số nguyên dương.

PHẦN NÀY MK NGU LẮM.LUÔN , BẠN NÀO GIÝP MK VS

Nguyễn Lê Phước Thịnh
15 tháng 11 2019 lúc 19:58

uses crt;

var i,n,kt:integer;

begin

clrscr;

repeat

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

if n<=1 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until n>1;

kt:=0;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

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

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Tuấn anh
Xem chi tiết
hồng phúc
Xem chi tiết
Hiền thúy
Xem chi tiết
Lại Quang Thắng
Xem chi tiết
Linh Hoàng
Xem chi tiết
Hiền thúy
Xem chi tiết
Yen Phuong Duong
Xem chi tiết
Trung Thành Đặng
Xem chi tiết
trang
Xem chi tiết