K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

24 tháng 5 2019

uses crt;
var x,y,r:longint;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
while y<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
write('Uoc chung lon nhat cua 2 so tren la: ',x);
readln
end.

D
datcoder
CTVVIP
14 tháng 10 2023

loading...

#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;
}

 

#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;

}

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

6 tháng 6 2016

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

27 tháng 5 2021

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.

27 tháng 5 2021

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.

17 tháng 6 2023

def UCLN(a, b):

      if a == 0:

            return b

      elif b == 0:

            return a

      elif a == b:

            return a

      elif a > b:

            return UCLN(a - b, b)

      else:

            return UCLN(a, b - a)

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

#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;

}

4 tháng 4 2022

Pascal bạn ơi

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

writeln(a-b);

writeln(a*b);

writeln(a/b:4:2);

readln;

end.