Заданы натуральные числа a и b. Которые обозначают числитель и знаменатель дроби. Сократить дробь, т.е. найти такие натуральные числа p и g которые не имеют общих делителей

code: #basic
Sub test()
a = 144
b = 60
c = NOD(a, b)
a = a / c
b = b / c
End Sub
 
Function NOD(ByVal a, ByVal b) 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
NOD = a + b
End Function

автор: Toxa33rus

Поделиться:

Похожие статьи: