Implementazioni di algoritmi/Algoritmo di Euclide: differenze tra le versioni

Contenuto cancellato Contenuto aggiunto
Riga 44:
<source lang="vb">
Public Function MCD(ByVal a As Integer, ByVal b As Integer) As Integer
Dim m As DecimalDimdsafafrdggfdsdsdsagfgfsa
If b = 0 Then Return a Else
Do
m = a Mod b
a = b
b = m
Loop Until b = 0
Return a
End Function
</source>
[[Categoria:Implementazioni di algoritmi|Algoritmo di Euclide]]