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

нет описания правки
Нет описания правки
return a;
}
</source>
 
== [[MapBasic]] ==
 
<source lang="csharp">
Function NOD(a As Integer, b As Integer) As Integer
 
Dim d As Integer
 
Do While a <> 0 and b <> 0
If a >=b Then
a = a mod b
Else
b = b mod a
End If
 
Loop
 
d = a + b
 
End Function
</source>
 
1

правка