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

Содержимое удалено Содержимое добавлено
Строка 204:
Более быстрый алгоритм:
<source lang="pascal">
function nod (a, b: LongInt): LongInt;
 
var
Строка 223:
В рекурсивном виде:
<source lang="pascal">
function nod(a, b: longintLongInt): longintLongInt;
begin
if b = 0 then