Tin học Viết các hàm USCLN(a, b) và BCNN(a, b). Pascal nha 15/07/2021 By Reagan Viết các hàm USCLN(a, b) và BCNN(a, b). Pascal nha
Hàm USCLN(a,b) function uscln(a,b:integer):integer; begin while a<>b do if a>b then a:=a-b else b:=b-a; uscln:=a; end; Hàm BCNN(a,b) function bcnn(a,n:integer):integer; begin bcnn:=a*b; while a<>b do if a>b then a:=a-b else b:=b-a; bcnn:=bcnn div a; end; Trả lời
Function ucln(x, y: word): word; Begin while x<>y do if x>y then x:=x-y else y:=y-x; ucln:=x; End; Function bcnn(x, y): longword; Begin bcnn:=x*y div ucln(x, y); End. Trả lời
Hàm USCLN(a,b)
function uscln(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
uscln:=a;
end;
Hàm BCNN(a,b)
function bcnn(a,n:integer):integer;
begin
bcnn:=a*b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
bcnn:=bcnn div a;
end;
Function ucln(x, y: word): word;
Begin
while x<>y do
if x>y then x:=x-y
else y:=y-x;
ucln:=x;
End;
Function bcnn(x, y): longword;
Begin
bcnn:=x*y div ucln(x, y);
End.