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

</source>
 
Рекурсия, деление с остатком либо вычитание (при указанных заменах в коде):
<source lang="vb">
Shared Function GCD (ByVal a As Integer, ByVal b As Integer) As Integer
If b = 0 Then Return Math.Abs(a)
Return GCD(b, a Mod b)
74

правки