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.

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.