Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
GeStat (обсуждение | вклад) Нет описания правки |
|||
Строка 163:
function nod( a, b: longint): longint;
begin
while (a <> 0)
if a >= b then
a:= a mod b
| |||