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