MỌI NGƯỜI ỚI !!!!!!!!!!!!!!!! Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ bằng pascal nha !!!!!!!!!!!!!! Viết hai c

0 bình luận về “MỌI NGƯỜI ỚI !!!!!!!!!!!!!!!! Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ bằng pascal nha !!!!!!!!!!!!!! Viết hai c”

1. program UCLN;

   uses Crt;

   var UCLN : integer;

         a, b: integer;

   begin

            Clrscr;

            Writeln (‘Nhap so nguyen a:’);

            Readln (a);

            Writeln (‘Nhap so nguyen b:’);

            Readln (b);

            while a>b then a := a-b;

            else b := b-a;

            if a=b then writeln (‘Uoc chung lon nhat la:’,a:0:2);

            Readln;

   end.

   Bình luận

2. ƯỚC CHUNG LỚN NHẤT:

   uses crt;
   var a,b,i:longint;
   begin
   clrscr;
      write(‘Nhap 2 so: ‘);readln(a,b);
      i:=a;
      while(a mod i<>0)or(b mod i<>0) do dec(i);
      writeln(‘UCLN(‘,a,’,’,b,’)= ‘,i);
   readln;
   end.

   BỘI CHUNG NHỎ NHẤT:

   uses crt;
   var a,b,i:longint;
   begin
   clrscr;
      write(‘Nhap 2 so: ‘);readln(a,b);
      i:=a;
      while(i mod a<>0)or(i mod b<>0) do inc(i);
      writeln(‘BCNN(‘,a,’,’,b,’)= ‘,i);
   readln;
   end.

   Bình luận