Viết chương trình tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mng giúp mình vs ạ!
2 câu trả lời
program phuongt;
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
write('USCLN = ', a);
readln
end.
