[Trang_anzu]

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

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

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.