12 lines
201 B
ObjectPascal
12 lines
201 B
ObjectPascal
function gcd_iterative(u, v: longint): longint;
|
|
var
|
|
t: longint;
|
|
begin
|
|
while v <> 0 do
|
|
begin
|
|
t := u;
|
|
u := v;
|
|
v := t mod v;
|
|
end;
|
|
gcd_iterative := abs(u);
|
|
end;
|