Größten gemeinsamen Teiler berechnen

1
2
3
4
5
6
7
8
9
10

Public Function ggT(ByVal A As Integer, ByVal B As Integer) As Integer
    While B <> 0
        If A > B Then
            A -= B
        Else
            B -= A
        End If
    End While
    Return A
End Function