Những câu hỏi liên quan
đố ai đoán dc tên mình
Xem chi tiết
Trần Thị Loan
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)
Đ.KHOA NOOB NGUYÊN
Xem chi tiết
Nguyễn Hà Nội
Xem chi tiết
Nguyễn Hoàng Minh
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)
Nguyễn Tiến Thành
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)
Khuyên Hà
Xem chi tiết
Vũ Kiệt
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)
Nguyễn Lê Phước Thịnh
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)
Vũ Quang Vinh
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)
Ender Dragon Boy Vcl
Xem chi tiết
Giải Giúp Tôi Với
Xem chi tiết
Giải Giúp Tôi Với
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)
Nguyễn Văn Mạnh
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)
Nguyễn Bảo NGọc
Xem chi tiết
Lam pretty girl
Xem chi tiết
Doan huu tuan
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)