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)
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ố 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;
(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;
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;
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, ' ');
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ó
Nhận xét
Đăng nhận xét