Những câu hỏi liên quan
DM
Xem chi tiết
TL
24 tháng 10 2015 lúc 21:47

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 >

=> 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.... 

Bình luận (0)
DN
Xem chi tiết
NN
Xem chi tiết
NM
22 tháng 11 2021 lúc 11:52

\(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\)

Bình luận (0)
NT
22 tháng 11 2021 lúc 11:53

16=24 ; 28=22.7 ; 40=23.5

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

     bội chung nhỏ nhất: 22.7.5=140

Bình luận (0)
KH
Xem chi tiết
VK
Xem chi tiết
NT
23 tháng 4 2021 lúc 22:26

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.

Bình luận (0)
NT
23 tháng 4 2021 lúc 22:27

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.

Bình luận (0)
VV
31 tháng 8 2021 lúc 15:48

BCNN:

program boichung;
var m,n: word;

procedure Input;
        begin
            readln(m,n);
        end;

function BC(m,n: word): word;
var i: word;
       begin
           for i := 1 to n * m do
               if (i mod n = 0) and (i mod m = 0) then
                   write(i,' ');
       end;

begin
    Input;
    BC(m,n);
end.

UCLN:

program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);

n := abs(n);
m := abs(m);

if (n = 0) then
    begin
        i := 1;
        write(m);
    end
else
    if (m = 0) then
        begin
            i := 1;
            write(n);
        end;

r := n mod m;
while r <> 0 do
      begin
        r := n mod m;
        n:= m;
        m:= r;
      end;
if (i = 0) then
    write(n);

readln    
end.

Bình luận (0)
EV
Xem chi tiết
GV
Xem chi tiết
GV
28 tháng 12 2014 lúc 21:44

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

Bình luận (0)
NM
11 tháng 5 2016 lúc 21:59

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

Bình luận (0)
NN
Xem chi tiết
LG
Xem chi tiết
DT
15 tháng 12 2014 lúc 22:38

Ư(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é!
 

Bình luận (0)