Cho 2 số nguyên dương X,Y . Hãy viết chương trình đưa ra màn hình ước chung lớn nhất của X,Y
2 câu trả lời
uses crt;
var x,y,r:longint;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
while y<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
write('Uoc chung lon nhat cua 2 so tren la: ',x);
readln
end.
var x, y: word;
Begin
Write('nhap x va y: '); readln(x, y);
While x<>y do
If x>y then x:=x-y
Else y:=y-x;
Write('UCLN la ', x);
Readln
End.
