Реализации алгоритмов/Алгоритм Евклида: различия между версиями

Содержимое удалено Содержимое добавлено
м Правки 95.191.210.250 (обсуждение) откачены к версии 92.47.204.75
Строка 159:
function nod( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do begin
if a >= b then
a:= a mod b
else
b:= b mod a;
end;
nod:= a + b;
end;