Cho 2 số nguyên dương X,Y . Hãy viết chương trình đưa ra màn hình ước chung lớn nhất của X,Y

0 bình luận về “Cho 2 số nguyên dương X,Y . Hãy viết chương trình đưa ra màn hình ước chung lớn nhất của X,Y”

1. var x, y: word;

   Begin

           Write(‘nhap x va y: ‘); readln(x, y);

           While x<>y do

                If x>y then x:=x-y

                Else y:=y-x;

          Write(‘UCLN la ‘, x);      

          Readln    

   End.

   Bình luận

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

   Bình luận