Viết chương trình con tìm ƯCLN của 3 số nguyên Giúp mk vs ạ
1 câu trả lời
Chương trình con:
function UCLN(a,b,c:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
while a<>c do
if a>c then a:=a-c else c:=c-a;
UCLN:=a;
end;
Chương trình con:
function UCLN(a,b,c:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
while a<>c do
if a>c then a:=a-c else c:=c-a;
UCLN:=a;
end;
