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)

0 bình luận về “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)”

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

   Bình luận

2. 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.

   Bình luận