Tin học kiểm tra số nguyên tố

[Play with me]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mai mình có bài kiểm tra 1 tiết rồi, giúp mình viết chương trình kiểm tra 1 số nguyên dương có là số nguyên tố không

 

[ka1412]

uses crt;
var n,i,k:integer;
snt:boolean;
begin
    clrscr;
    write('Nhap n:');readln(n);
    snt := true;
    if n<=1 then snt:=false;
    if n>=2 then
    for i:=2 to trunc(sqrt(n)) do
    if n mod i=0 then snt:=false;
    if snt=true then write('So nguyen to') else write('Khong phai so nguyen to');
    readln
end.

Không hiểu gì cứ hỏi mình nhé