Question

Hai số tự nhiên được gọi là nguyên tố tương đương nếu chúng có chung các ước nguyên tố. ví dụ các số 75 cà 15 là nguyên tố tương đương vì cùng có các ước nguyên tố là 3 và 5. cho trước hai số tự nhiên N và M hãy viết chương trình kiểm tra xem các số này có là số nguên tố tương đương với nhau hay không pascal

Answer 1

Program HOC24;

var i,n,m,k,d: integer;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:= x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap N: '); readln(N);

write('Nhap M: '); readln(M);

d:=0;

k:=ucln(N,M);

for i:=1 to k do

if nt(i) then d:=d+1;

if d>0 then write('2 so nay tuong duong voi nhau') else write('2 so nay khong tuong duong voi nhau');

readln

end.