Program so_nguyen_to;
Uses crt;
Var i,n: integer;
Begin
Clrscr;
Write(‘Nhap vao mot so nguyen n:’); readln(n);
If n<=1 then writeln(‘N khong phai so nguyen to’) else
Begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,’ la so nguyen to’) else writeln(n,’khong phai la so nguyen to’);
end;
readln;
end.
1) Thế nào là số nguyên tố?
Số nguyên tố là số tự nhiên lớn hơn 1 và chỉ chia hết cho 1 và chính nó
2) Tên của chương trình trên là gì?
tên của chương trình trên là so_nguyen_to
3) Kể tên các biến của chương trình trên ?
chương trình trên có 2 biến là n,i
4) Câu lệnh n mod i <> 0 có ý nghĩa gì?
có nghĩa là n chia lấy phần dư cho i khác 0 :>