Viết chương trình con tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mk đang cần gấp, mng giúp mk với ạ!
1 câu trả lời
program im_14424;
uses crt;
var a,b: integer;
begin
clrscr;
write('Nhap vao gia tri cua a va b: ");
readln(a,b);
while a <> b do
if a>b then a:=a-b
else b:=b-a;
readln(a);
end.
