Bài tập: Tìm ước chung lớn nhất của
2 số a,b;
Program UCLN;
Uses crt;
Var a, b, tg:integer;
Begin
Clrscr;
Write(‘Nhap gia tri cua a: ‘);
readln(a);
Write(‘Nhap gia tri cua b: ‘);
readln(b);
Tg:=a mod b;
While tg<>0 do
Begin
a:=b;
b:=tg;
tg:=a mod b;
End;
Write(‘UCLN cua 2 so la: ‘,b);
Readln;
End.
