câu a; b cách làm tương tự nhau. Bạn xem câu ở câu hỏi tương tự: http://olm.vn/hoi-dap/question/89869.html

c) đề bài cho [a;b] + (a;b) = 15

gọi d = (a;b) => a = d.m; b = d.n ( coi m < n và m; n nguyên tố cùng nhau)

Ta có: [a;b] = \(\frac{a.b}{d}=\frac{dm.dn}{d}=d.m.n\)

khi đó, d.mn + d = 15 => d(m.n + 1) = 15 => m.n + 1 \(\in\) Ư(15)  mà m.n + 1 > 2 

=> m.n + 1 \(\in\) {3;5;15} 

+) m.n + 1 = 3 => m.n = 2 = 1.2 => m = 1; n = 2 và d = 5 => a = 5.1 = 5; b = 5.2 = 10

+) m.n + 1 = 5 => m.n = 4 = 1.4 => m = 1; n = 4 và d = 3 => a = 3.1 = 3; b = 3.4 = 12

+) m.n + 1 = 15 => m.n = 14 =1 .14 = 2.7

m =1; n = 14 ; d = 1 => a= 1; b = 14

m = 2; n = 7 ;d = 1 => a = 2; b = 7

Vậy.... 

\(16=2^4;28=2^2\cdot7;40=2^3\cdot5\\ \RightarrowƯCLN\left(16,28,40\right)=2^2=4\\ BCNN\left(16,28,40\right)=2^4\cdot5\cdot7=560\)

16=2⁴ ; 28=2².7 ; 40=2³.5

=> ước chung lớn nhất: 2² 

     bội chung nhỏ nhất: 2².7.5=140

Câu 1: 

uses crt;

var m,n,ucln,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

ucln:=1;

if m<n then 

begin

for i:=1 to m do 

if (m mod i=0) and (n mod i=0) then 

  begin

if ucln<i then ucln:=i;

end;

end

else begin

for i:=1 to n do 

  if (m mod i=0) and (n mod i=0) then 

begin

if ucln<i then ucln:=i;

end;

end;

writeln(ucln);

readln;

end.

Câu 2: 

uses crt;

var m,n,bcnn,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

bcnn:=m*n;

for i:=m*n-1 downto 1 do 

  if (i mod m=0) and (i mod n=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

Giúp mình làm lời giải chi tiết

bài này hơi khó làm bạn nào biết cũng giúp cho mik

Ư(12)=(1,2,3,4,6,12)

Thay lần lượt ta có n+1=1 <=> n = 0

Bạn thay lần lượt nhé!