Question

Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.

Answer 1

var x,y,u: longint;
begin
write(‘Nhap x: ‘); readln(x);
write(‘Nhap y: ‘); readln(y);
while x<>y do
if x>y then x:=x-y else y:=y-x;
u:=x;
write(‘Uoc chung lon nhat cua x va y la: ‘,u);
end.