Какое минимальное число поворотов сделать, чтобы шестеренки вернулись на исходное состояние - VB

Формулировка задачи:

две сцепленные шестеренки. У одной n зубцов , у другой к.ТРебуеться найти какое минимальное число поворотов сделать, чтобы шестеренки вернулись на исходное состояние. формат ввода в единственной строке даны два натуральных числа n,k каждое из которых не привосходит 10 мил пример ввели 2 и 3 получили 6

Решение задачи: «Какое минимальное число поворотов сделать, чтобы шестеренки вернулись на исходное состояние»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim n As Integer
    Dim k As Integer
    Dim s As String
    s = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г¤ГўГ* Г·ГЁГ±Г«Г* Г·ГҐГ°ГҐГ§ ГЇГ°Г®ГЎГҐГ«")
    n = Split(s, " ")(0)
    k = Split(s, " ")(1)
    Print nok(n, k)
End Sub
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function
                        

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы