uses crt;
var n,i:word; ok:boolean;
begin
write('Nhap gia tri cua n; ');read(n);
ok:=true;
i:=2;
While ok and (i<n) do
begin
if (n mod i = 0) then ok:=false;
inc(i);
end;
if ok then write(n,'la so nguyen to, ket qua cua ',n,' mod 3 la: ',n mod 3)
else write(n,' khong phai la so nguyen to');
readln;
end.
- ta biết các số nguyên tố chỉ chia hết cho 1 và chính nó, tức là các số trong phạm vi [2..n-1] sẽ không có ước của n.
- kiểu dữ liệu boolean là kiểu dữ liệu chỉ có 2 giá trị là true hoặc false
- khi viết " If <biến kiểu boolean> " có thể hiểu là " If <biến kiểu boolean> = true "
ví dụ viết "if ok then..." có thể hiểu là "if ok=true then..."
- hoặc cũng có thể dùng biến byte để lưu giá trị 1 thay cho true, 0 thay cho false; biến char lưu giá trị 'y' thay cho true, 'n' thay cho false;... Nói chung tùy bạn dùng biến và kiểu dữ liệu để làm biến kiểm tra chứ không nhất thiết phải là kiểu dữ liệu boolean
