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}$
