Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Freidom (обсуждение | вклад) |
GeStat (обсуждение | вклад) Нет описания правки |
||
Строка 243:
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>
| |||