Những câu hỏi liên quan
Mai Xuân Phúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:51

#include <bits/stdc++.h>

using namespace std;

long long m,n;

//chuongtrinhcon

long long ucln(long long m,long long n)

{

if (n==0) return(m);

else return(ucln(n,m%n));

}

//chuongtrinhchinh

int main()

{

cin>>n>>m;

cout<<ucln(n,m);

return 0;

}

Bình luận (0)
Mai Xuân Phúc
4 tháng 4 2022 lúc 22:02

Pascal bạn ơi

Bình luận (0)
Mai Xuân Phúc
Xem chi tiết
Mai Xuân Phúc
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)
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 9 2021 lúc 2:03

#include <iostream>
using namespace std;
int main()
{
    int t,m,n,ucln;
    cout<<"Nhap n="; cin>>n;
    cout<<"Nhap m="; cin>>m;
    t=m%n;
    while (t!=0)
    {
        t=n%m;
        n=m;
        m=t;
    }
    ucln=n;
    cout<<ucln;
    return 0;
}

 

Bình luận (0)
Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 21:47

loading...

Bình luận (0)
Hà Như Thuỷ
Xem chi tiết
Thắng Nguyễn
19 tháng 12 2015 lúc 18:42

Trong một số trường hợp, có thể sử dụng mối quan hệ đặc biệt giữa ƯCLN, BCNN và tích của hai số nguyên dương a, b, đó là : ab = (a, b).[a, b], trong đó (a, b) là ƯCLN và [a, b] là BCNN của a và b. Việc chứng minh hệ thức này khụng khú :

Theo định nghĩa ƯCLN, gọi d = (a, b) => a = md ; b = nd với m, n thuộc Z+ ; (m, n) = 1 (*)

Từ (*) => ab = mnd2 ; [a, b] = mnd

=> (a, b).[a, b] = d.(mnd) = mnd2 = ab

=> ab = (a, b).[a, b] . (**)

Bình luận (0)
Đoàn Thùy Thảo
Xem chi tiết
minh huy nguyen
Xem chi tiết
Oo Bản tình ca ác quỷ oO
6 tháng 6 2016 lúc 20:02

Gọi d là ƯCLN của 21n+4 và 14n+3 ta có: 
21n+4 chia hết cho d [ 42n+8 chia hết cho d 
14n+3 chia hết cho d [ 42n+9 chia hết cho d 
=>(42n+9)-(42n+8) chia hết cho d=> d=1 
Vậy ƯCLN của 21n+4 và 14n+3 là 1

t i c k nhé!! 5645657

Bình luận (0)
Võ Đông Anh Tuấn
6 tháng 6 2016 lúc 20:05

Gọi d là ƯCLN của 21n+4 và 14n+3 ta có: 
21n+4 chia hết cho d [ 42n+8 chia hết cho d 
14n+3 chia hết cho d [ 42n+9 chia hết cho d 
=>(42n+9)-(42n+8) chia hết cho d=> d=1 
Vậy ƯCLN của 21n+4 và 14n+3 là 1

Bình luận (0)
TFboys_Lê Phương Thảo
6 tháng 6 2016 lúc 20:09

Gọi d là ƯCLN của 21n+4 và 14n+3 ta có: 
21n+4 chia hết cho d [ 42n+8 chia hết cho d 
14n+3 chia hết cho d [ 42n+9 chia hết cho d 
=>(42n+9)-(42n+8) chia hết cho d=> d=1 
Vậy ƯCLN của 21n+4 và 14n+3 là 1

Bình luận (0)