Viết Ctr con UCLN (a, b) theo Thuật toán trừ và chia Sửa thành BCNN
2 câu trả lời
* UCLN:
uses crt;
var a,b:word;
function ucln(a,b:word):word;
begin
while a<>b do
if a>b then dec(a,b)
else dec(b,a);
exit(a*b div a);
end;
begin
clrscr;
read(a,b);
write(ucln(a,b));
readln;
readln;
end.
* BCNN:
uses crt;
var a,b:word;
function bcnn(a,b:word):word;
begin
while a<>b do
if a>b then dec(a,b)
else dec(b,a);
exit(a);
end;
begin
clrscr;
read(a,b);
write(bcnn(a,b));
readln;
readln;
end.
