chia sẽ thuật toán(ai bík thì zô share):

bạn nào bík những thuật toán trong pascal thì zô trao đổi nha!!!
mình xin mở hàng = thuật toán euclide để tìm ucln của 2 số
Thuận toán này là thuận toán chia lin típ,lấy số dư của 2 số rồi hoán đổi 2 số,rồi gán số dư bằng số thứ nhất.
ta có đoạn chương trình sau:
uses crt;
var a,b,r:integer;
begin
readln(a,b);
while b>o do begin r:=a mod b;
a:=b;b:=r;
end;
writeln('ucln',a);
end.