Code:
KiemTraNguyenTo[n_] := Module[{i},
i = 2;
While[i < n && Mod[n, i] ≠ 0, i++;];
If[i == n,
Return[True];
,
Return[False];
];
];
Code:
KiemTraNguyenTo1[n_] := Module[{i},
i = 2;
While[i ≤ Sqrt[n],
If[Mod[n, i] == 0,
Return[False];
,
i++;
];
];
Return[True];
];