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 !!!!!!!!!!!!!!

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 !!!!!!!!!!!!!!”

1. a. Tìm ƯCLN:

   Uses crt;
   Var x, y: integer;
   Begin
   Clrscr;
   Write(‘Nhap x = ‘); readln(x);
   Write(‘Nhap y = ‘); readln(y);
   While x<>y do
   If x>y then x:=x-y else y:=y-x;
   Writeln(‘UCLN = ‘,x);
   Readln
   End.

   b. Tìm BCNN:

   Uses crt;
   Var a, b, c, d: integer;
   Begin
   Clrscr;
   Write(‘Nhap a = ‘); readln(a);
   Write(‘Nhap b = ‘); readln(b);
   d:=a*b;
   While a<>b do if a>b then a:=a-b else b:=b-a;
   c:=a;
   d:=d div c;
   Writeln(‘BCNN = ‘,d);
   Readln
   End.

   Bình luận

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

   var x,y,UCLN,BCNN,t:integer;

   begin

   readln(x,y) ;
   BCNN:=x*y;
   t:= y mod x;
   While t <> 0 do
         Begin
           t:= x MOD y;
           x:= y;
           y:= t;
         End;

   ucln:=x;
   BCNN:=BCNN div UCLN;

   write(UCLN,’ ‘,BCNN);

   end.

   Bình luận