Viết chương trình ƯCLN của 2 số nguyên dương A,B ( A,B nhập vào từ bàn phím)

0 bình luận về “Viết chương trình ƯCLN của 2 số nguyên dương A,B ( A,B nhập vào từ bàn phím)”

1. Program BTT;
   Uses crt;
   Var a,b: longint;
   Function UCLN(x,y: longint): longint;
   Begin
           While x<>y do
                   If x>y then x:=x-y
                   Else y:=y-x;
           UCLN:=x;
   End;

   Begin
           Clrscr;
           Write(‘Nhap a va b: ‘); Readln(a,b);
           Write(‘UCLN(‘,a,’,’,b,’) = ‘,UCLN(a,b));
           Readln
   End.

   Bình luận