Question

Nhập hai số a,b .In ra màn hình UCLN(a,b)BCNN(a,b)

Answer 1

C1:

var x,y,UCLN,BCNN:integer; begin readln(x,y);
BCNN:=x*y; While x<>y do If x>y then x:=x-y else y:=y-x;
UCLN:=x;
BCNN:=BCNN div UCLN; write(UCLN,' ',BCNN);

end.

Answer 2

C2:

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.

Answer 3

c3:

function ucln(x,y:integer):integer;
begin
if x = y then
ucln:=x
else if x > y then
ucln:=ucln(x mod y,y)
else
ucln:=ucln(x, y mod x);
end; var x,y:integer; begin readln(x,y); write('Ước chung lớn nhất là: ', UCLN(x,y), ' Bội chung nhỏ nhất là: ', (x*y) div UCLN(x,y)); end.