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