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.

\(360=2^3.3^2.5\)

\(\Rightarrow4.3.2=24\) ước

\(102=2.3.17\)

\(\Rightarrow2.2.2=8\) ước

\(720=2^4.3^2.5\)

\(\Rightarrow5.3.2=30\) ước

ước của 45 là : 1 ; 3 ; 5 ; 9 ; 15 ; 45

ước của 20 là : 1 ; 2 ; 4 ; 5 ; 10 ; 20

\(45=3^2.5\)

=>\(\left(2+1\right)\left(1+1\right)\)\(=6\)

\(20=2^2.5\)

=>\(\left(2+1\right)\left(1+1\right)=6\)

Vào sách lớp 6 có bài về ước đọc thêm 

Mình chỉ luôn : 

Phân tích thừa số nguyên tố  : 45 = 3².5  

= ( 2 + 1 ) . ( 1 + 1 ) = 6 ước 

20 = 2².5= 

= ( 2 + 1 ) . ( 1  + 1 ) = 6

Ta có  360  = 23.32.5

Vậy số các ước của 360 là

(3 + 1)(2 + 1)(1 + 1) = 24 ước

vòng mấy vậy bạn violympic ko có mấy câu này chỉ câu a có thui

a ) tu 21 den 100 co 9 chu so 1

101 den 1000 co 10 chu so 1        =30 chu so 1

tu 1 den 20 co 11 chu so 1

 nhu vay tu lam not nha

a,301

b302

c301

302

1.Số 20 có 12 ước.

2.Số 45 có 12 ước.

Đúng thì k cho mk nha.

1.: Ư(20) = {1; 2; 4; 5; 10; 20}, vậy 20 có tất cả 6 ước.

2.: Ư(45) = {1; 3 ; 5; 9; 15; 45}, vậy 45 có tất cả 6 ước.

                               Giai

a, ta co  :    20 =2²  .5

 vay 20 co so uoc la   :   (2+1) . (1+1) =6

b, t5ta co        45 = 3²  .5

 vay 45 co so uoc la         (2+1)> (1+1) + 6

Từ 1 đến 180 có số chữ số là:

        (180-1):1+1=180(số)

Từ 10 đến 105 có số chữ số là:

       (105-10):1+1=96(số)

từ 1 đến 180 có số chữ số là : ( 180 - 1 ) : 1 + 1 = 180 ( chữ số )

từ 10 đến 105 có số chữ số là : ( 105 - 10 ) : 1 + 1 = 96 ( chữ số ) 

từ 1 đến 500 có số chữ số 5 là : ( 500 -1 ) : 1 + 5 = 504 ( chữ số ) 

từ 1 đến 500 có số chữ số 0 là : ( 500 - 1 ) : 1 + 0 = 499 ( chữ số )