Tìm ucln bằng thuật toán Euclide:
var x,y,UCLN,BCNN,t:integer;
begin
readln(x,y);
BCNN:=x*y;
t:= y mod x;(em khổng hiểu chỗ này)
While t <> 0 do
Begin
t:= x MOD y;(em khổng hiểu chỗ này)
x:= y;(em khổng hiểu chỗ này)
y:= t;(em khổng hiểu chỗ này)
End;
ucln:=x;
writeln('UCLN=',ucln);
readln;
end.
Bookmarks