Chào mọi người đã đến với vlog nhỏ của Trang Như mọi người đã thấy thì hầu hết trên mạng nhưng chương trình pascal viết về phần số nguyên tố này hơi khó hiểu nhỉ. Theo minh thấy là vậy! Nhưng sau đây Trang sẽ giới thiệu một cách siêu dễ. Áp dụng vào chính công thức nếu a là số nguyên tố thì a chỉ chia hết cho a à 1! Nới cách khác a không chia hết cho từ 1 đến (a-1) CHƯƠNG TRÌNH THƯỜNG Code: program iloveyou; uses crt; var a, n, i: Integer; begin clrscr; writeln('nhap n'); readln (n); for i:=1 to n-1 do begin if n mod i<>0 then a:=1 else a:=0; (mọi người có thể dùng true/ false nha~đi thi thì nên dùng true / false hơn~) end; if a:=1 then writeln (n, 'la so nguyen to') else writeln (n, 'không la so nguyen to'); readln; end. CHƯƠNG TRÌNH CON Code: program iuyou; uses crt; var a, n, i:integer; function nt (a,n,i: integer): integer; for i: =1 to n-1 do begin if n mod i <>0 then a:=1 else a:=0; end; if a:=1 then writeln (n, 'la so nguyen to') else writeln (n, 'không la so nguyen to'); end; begin clrscr; writeln('nhap n'); readln(n); nt(a,n,i); readln; end. Thế là xong rôi đóa, cảm ơn tui đi hihi, nhớ đăng ký dembuon.vn han huyên với tui nha. I love you. Chút chút.
