uses crt;

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

{---------------chuong-trinh-con-tim-ucln--------------------}

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;

{------------chuong-trinh-con-kiem-tra-so-nguyen-to-------------------}

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;

{---------------chuong-trinh-chinh---------------------}

begin

clrscr;

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 writeln('2 so nay tuong duong voi nhau')

else writeln('2 so nay khong tuong duong voi nhau');

readln;

end.

uses crt;

var i,n,m:integer;

a,b:array[1..100]of integer;

function nt(n:integer):boolean;

begin

  if n<2 then nt:=false;

  for i:=2 to n div 2 do

  if n mod i=0 then nt:=false;

end;

function nttd(n,m:integer):boolean;

var i,j,k,d,dem,s:integer;

a,b:array[1..100]of integer;

begin

  nttd:=false;

  d:=0;

  for j:=1 to n do

  if (nt(j))and(n mod j=0) then

  begin

    inc(d);

    a[d]:=j;

  end;

  dem:=0;

  for k:=1 to n do

  if (nt(k))and(m mod k=0) then

  begin

    inc(dem);

    b[dem]:=k;

  end;

  s:=0;

  if d=dem then for i:=1 to d do if a[i]=b[i] then

  inc(s);

  if s=d then nttd:=true else nttd:=false;

end;

BEGIN

  clrscr;

  write('nhap n,m:');readln(n,m);

  if nttd(n,m) then writeln(n,' va ',m,' la nguyen to tuong duong')

  else writeln(n,' va ',m,' khong phai la nguyen to tuong duong');

  readln;

END.

uses crt;

Var M,N,d,i,luun,luum:integer;

Function USCLN(m,n: integer): integer;

Var r: integer;

Begin

luun:=n;luum:=m;

While n<>0 do

begin

r:=m mod n; m:=n; n:=r;

end;

USCLN:=m;

End;

function nttd:integer;

begin

  d:=USCLN(M,N); i:=2;

  While d<>1 do

  begin

    If d mod i =0 then

    begin

      While d mod i=0 do d:=d div i;

      While M mod i=0 do M:=M div i;

      While N mod i=0 do N:=N div i;

    end;

    Inc(i);

  end;

  If M*N=1 then Write(luum,'  va ', luun,' la so nguyen to tuong duong.')

  Else Write(luum ,' va  ',luun ,' khong phai la so nguyen to tuong duong.');

end;

BEGIN

  clrscr;

  Write('Nhap M,N:'); Readln(M,N);

  nttd;

  Readln;

END.

mình kô pit. Chúc bạn may mắn lần sau nhaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaâ

Hix làm ơn đi mà ai giúp đi. Sắp nộp rùi huhu

1. Lũy thừa với số mũ tự nhiên. Có 2 công thức:

+ Nhân hai lũy thừa cùng cơ số: a^m. aⁿ= a^m+n

VD: 2. 2³= 2¹⁺³= 2⁴= 16.

+ Chia hai lũy thừa cùng cơ số: a^m: aⁿ= a^m-n

VD: 2⁶: 2³= 2^6-3= 2³= 8.

Số nguyên tố là số tự nhiên lớn hơn 1 và chỉ có hai ước là 1 và chính nó.

Ví dụ: 2 là số nguyên tố vì:

* 2 > 1

* Ư(2) = {1; 2}

Hợp số là số tự nhiên lớn hơn 1 và có nhiều hơn 2 ước.

Ví dụ: 9 là hợp số vì:

* 9 > 1

* Ư(9) = {1; 3; 9}

Hai số nguyên tố cùng nhau là hai số có ước chung lớn nhất là 1

Ví dụ: 8 và 9 là hai số nguyên tố cùng nhau vì ƯCLN(8; 9) = 1

Số nguyên tố cùng nhau là số có ước chung lớn nhất là 1

Ví dụ : 8 và 9

           15 và 17

           21 và 23

1. Thế nào là nguyên tố, hợp số ?

Số nguyên tố là số tự nhiên lớn hơn 1, chỉ có 2 ước là 1 và chính nó - Vd : 2;3;5;7

Hợp số là một số tự nhiên có thể biểu diễn thành tích của hai số tự nhiên khác nhỏ hơn nó - Vd : 4;8

2.  Thế nào là hai số nguyên tố cùng nhau ?

Các số nguyên a và b đều được gọi là nguyên tố cùng nhau nếu chúng có ước số chung lớn nhất là 1 - Vd : 5 và 23 là nguyên tố cùng nhau vì chúng có ước chung lớn nhất là 1.

3. ƯCLN của hai hay nhiều số là gì ?

ƯCLN của hai hay nhiều số là số lớn nhất trong tập hợp các ước chung của các số đó, ước chung lớn nhất của a và b kí hiệu là ƯCLN ( a,b ). Cách tìm ước chung lớn nhất :

Bước 1 : Phân tích mỗi số ra thừa số nguyên tố

Bước 2 : Chọn ra các thừa số nguyên tố chung

Bước 3 : Lập tích các thừa số đã chọn; mỗi thừa số lấy với số mũ nhỏ nhất của nó. Tích đó là ƯCLN phải tìm.

4. BCNN của hai hay nhiều số là gì ?

BCNN của hai hay nhiều số là số nhỏ nhất khác 0 trong tập hợp các bội chung của các số đó. Bội chung nhỏ nhất của các số a,b,c được kí hiệu là BCNN ( a,b,c ). Cách tìm bội chung nhỏ nhất :

Bước 1 : Phân tích mỗi số ra thừ số nguyên tố

Bước 2 : Chọn ra các thừa số nguyên tố chung và riêng

Bước 3 : Lập tích các thừa số đã chọn, mỗi thừa số lấy với số mũ lớn nhất của nó. Tích đó là BCNN phải tìm.

Học Tốt !

nguyen to cung nhau phai la mot nguyen to ket hop nao la hoa nuo lua khong khi

1:so nguyen to la so tu nhien lon hon 1,chi co hai Ư va 1 va chinh no.VD:2;3;5;7;9;.....

   hop so la so tu nhien lon ho 1 co nhieu hon 2 uoc. VD:4;6;8;10;12;14;15;16;......

2:a,b la hai so nguyen to cung nhau khi UCLN(a;b) = 1.VD:UCLN(2;3) = 1.

3:cach tim :B1: phan h moi so ra thua so nguyen to.

                  B2:lay ra cac thua so nguyen to chung.

                  B3:UCLN bang h cac thua so da lay ra voi so mu nho nhat.

4cach tim:B1:Phan h moi so ra thua so nguyen to.

                B2:lay ra cac thua so nguyen to chung va rieng.

                B3:BCNN bang h cac thua so da lay voi so mu lon nhat

ko cho ví dụ nk,giận rùi

Có

Vd: 55 và 46

khó thế