Những câu hỏi liên quan
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.

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.

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.

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;

}

Mai Xuân Phúc
4 tháng 4 2022 lúc 22:02

Pascal bạn ơi

Mai Xuân Phúc
Xem chi tiết
Mai Xuân Phúc
Xem chi tiết
Dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:25

#include <bits/stdc++.h>

using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>a>>b;

cout<<ucln(a,b);

return 0;

}

Hiền Nguyễn
Xem chi tiết
nguyễn an phát
27 tháng 5 2021 lúc 14:24

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

nguyễn an phát
27 tháng 5 2021 lúc 14:30

b)

program fibonaci;

uses crt;

var i,n:integer;

a:array[1..30]of integer;

begin

clrscr;

repeat

write('nhap n:');readln(n);

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2];

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Kalluto Zoldyck
Xem chi tiết
Kalluto Zoldyck
29 tháng 7 2016 lúc 10:35

- Gọi d là ước chung lớn nhất của n và n + 2 

=> n chia hết d và n + 2 chia hết d

=> ( n + 2 ) - n chia hết d

=> 2 chia hết d

=> d = 1 hoặc 2 

Nếu n lẻ => d = 1

Nếu n chẵn => d = 2

Vậy ước chung lớn nhất của n và n + 2 là 1 hoặc 2

Ta có : Nếu ước chung lớn nhất của n và n + 2 = 1 

thì bội chung nhỏ nhất của n và n +2 = n(n+2)

Nếu ước chung lớn nhất của n và n +2 là 2

thì bội chung nhỏ nhất của n và n +2 = n(n+2) : 2

Làm như thế này có đúng không vậy ?

pham van tan
7 tháng 1 2017 lúc 9:50

nhưng phải giải thích rõ ràng lại

Võ Anh Thư
16 tháng 4 2021 lúc 16:18

tự cho câu hỏi rồi tự giải luôn kìa

Khách vãng lai đã xóa
Nguyễn Thị Kiều Oanh
Xem chi tiết
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;
}