Какое минимальное число поворотов сделать, чтобы шестеренки вернулись на исходное состояние - 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