Viết chương trình tính Ước chung lớn nhất, bội chung nhỏ nhất có sử dụng chương trình con. giúp mình sớm nhé, mình cảm ơn
1 câu trả lời
program UCLN_BCNN;
uses crt;
var a,b:integer;
{-------Chuong-trinh-con-------}
function UCLN(x,y:integer):integer;
var r:integer;
begin
r:=y mod x;
while r<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
UCLN:=x;
end;
{----------Chuong-trinh-chinh---------}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
writeln('UCLN(',a,',',b,')= ',UCLN(a,b));
writeln('BCNN(',a,',',b,')= ',(a*b) div UCLN(a,b));
readln;
END.
