Câu hỏi: Viết chương trình nhập vào một số nguyên, kiểm tra xem số đó có phải số nguyên tố không. Hứa hote 5s và cảm ơn.
2 câu trả lời
Program nguyento;
Uses Crt;
Var n,d,k:longint;
Begin Clrscr;
write('n=');
Readln(n);
k:=0;
For d:=1 to n do
If n mod d = 0 then
k:=k+1;
If k=2 then
write ('n la so nguyen to');
Readln;
End.
Bước 1: Nhập vào n
Bước 2: Kiểm tra nếu n < 2 thì kết luận n không phải là số nguyên tố
Bước 3: Lặp từ 2 tới (n-1), nếu trong khoảng này tồn tại số mà n chia hết thì kết luận n không phải là số nguyên tố, ngược lại n là số nguyên tố.
Câu hỏi trong lớp
Xem thêm