Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 198:
else b:= b mod a;
nod:= a + b;
end
</source>
Более быстрый алгоритм:
<source lang="pascal">
function nod (a, b: LongInt);
var
t: LongInt;
begin
while b > 0 do
begin
t := a mod y;
a := b;
b := t
end
end;
nod := a
</source>
| |||