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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

Похожие записи/страницы: