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.
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.
1
*Xác định bài toán
-input: a,b
-output: ucln(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: Xuất ucln
-Bước 7: Kết thúc
2:
*Xác định bài toán
-input: a,b
-output: bcnn(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: bcnn:=(a*b)/ucln;
-Bước 7: xuất bcnn
-Bước 8: Kết thúc
#include <bits/stdc++.h>
using namespace std;
long long m,n;
//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;
}
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)