SỐ NGUYÊN TỐ

HÀM KIỂM TRA MỘT SỐ CÓ PHẢI LÀ SỐ NGUYÊN TỐ HAY KHÔNG TRONG PASCAL
(Cách đơn giản, dễ hiểu nhất)

function snt( a:integer):boolean;
var j:integer; uoc:integer;
begin
uoc:=0;
for j:= 1 to a do
if a mod j =0 then uoc:=uoc+1;

if uoc=2 then snt:=true
else snt:=false;
end;

{Cách khác}

Function snt(x:Integer):boolean;

var i:integer;

begin

snt:=x>1;

for i:=2 to X-1 do if x mod i =0 then snt:=false

end;

Một số bài toán liên quan đến số nguyên tố

+ Số nguyên tố rút gọn: số nguyên tố rút gọn của một số n chính là tổng các ước nguyên tố của n

   s:=0;
   for i:=1 to N do if( n mod i=0)  and snt(i) then s:=s+i;
   write('so nguyen to rut gon cua N la:',s);

+ Số nguyên tố họ hàng: Là số nguyên tố, đồng thời tổng của nó với 4 cũng là một số nguyên tố
  for i:=1 ton N do
  If snt(i) and snt(i+4) then write(i, ' ');

+ Số song tố: Là số nguyên tố mà tổng các chữ số của nó cũng là một số nguyên tố;

if  (snt(n)) and  (snt (tong(n))) then write(N, 'la so song to');

+ Số siêu nguyên tố: là số nguyên tố mà khi bỏ đi một chữ số hàng đơn vị thì nó vẫn là 1 số nguyên tố 

function sieu_nto(x:longint):boolean;
begin
sieu_nto:=true;
while x<>0 do
begin
  if snt(x)=false then sieu_nto:=false;
  x:=x div 10;
end;
end;

+ Số nguyên tố đối xứng: là một số nguyên tố bằng trung bình cộng của 2 số nguyên tố liền trước và liền sau nó