ng dẫn:
- Nếu n không chia hết mọi số i có giá trị từ 2 đến n - 1 thì n là số nguyên tố.
- Sử dụng biến ok có kiểu boolean và có giá trị ban đầu là true.
- Cho biến i chạy từ 2 đến n – 1. Xét n mod i. Nếu bằng 0 thì gán ok = false. Ngược
lại vẫn để nguyên ok.
b.Mã chương trình:
Program Nguyen_to_1;
uses crt;
var n, i: integer;
 ok: boolean;
begin
 ok:=true;
 write('Nhap n: ');readln(n);
 for i:= 2 to n - 1 do if n mod i = 0 then
 ok :=false;
 if ok then write(n,' la so nguyen to')
 else write(n, ' khong la so nguyen to');
 readln
end

Uses crt;
Var N,i,d : Word;
Begin
        If N<2 Then Writeln(N,’ khong phai la so nguyen to’)
       Else
         Begin
           d:=0;
           For i:=2 To N div 2 Do
           If N MOD i=0 Then
          d:=d+1;
          If d=0 Then Writeln(N,’ la so nguyen to’)
         Else Writeln(N,’ khong phai la so nguyen to’);
       End;
Readln;
End.

$\text{#Mong câu trả lời hay nhất ạ}$
$\text{#Chúc bạn học tốt nha}$
$\text{@Vân}$