Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (37.47 KB, 2 trang )
Thuật toán tìm ƯCLN
function UCLN(a,b: integer):
integer; var r : integer; begin while
b<>0 do begin r := a mod b; a := b;
b := r; end; UCLN := a; end;