viết chương trình tìm ước chung lớn nhất và bội chung nhỏ nhất của nhiều số nguyên nhập từ bàn phím (dùng mảng)
viết chương trình tìm ước chung lớn nhất và bội chung nhỏ nhất của nhiều số nguyên nhập từ bàn phím (dùng mảng)
By Gianna
By Gianna
viết chương trình tìm ước chung lớn nhất và bội chung nhỏ nhất của nhiều số nguyên nhập từ bàn phím (dùng mảng)
#include<bits/stdc++.h>
using namespace std;
int ucln(int a, int b){
while (a*b != 0){
if (a > b){
a %= b;
}else{
b %= a;
}
}
return a + b;
}
int bcnn(int a, int b)
{
return a*b/ucln(a,b);
}
int main()
{
int bn=1;
int n;
cin>>n;
int arr[n];
for(int i=0;i<n;i++){
cin>>arr[i];
}
int ln=arr[0];
for(int i=0;i<n;i++){
ln=ucln(ln,arr[i]);
bn=bcnn(bn,arr[i]);
}
cout<<“UCLN cua cac phan tu trong mang: “<<ln<<“\nBCNN cua cac phan tu trong mang: “<<bn;
//samon247
return 0;
}
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,uc,bc: integer;
function ucln(a,b: integer):integer;
begin
while (a<>b) do
if a>b then
a:=a-b
else
b:=b-a;
ucln:=a;
end;
function bcnn(a,b: integer): integer;
begin
bcnn:= a*b div ucln(a,b);
end;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘); readln(a[i]);
end;
uc:=a[1]; bc:=1;
for i:=1 to n do
begin
uc:=ucln(uc,a[i]);
bc:=bcnn(bc,a[i]);
end;
writeln(‘UCLN cua mang vua nhap: ‘,uc);
writeln(‘BCNN cua mang vua nhap: ‘,bc);
readln;
end.