Нахождение НОК для пар чисел - VB
Формулировка задачи:
Здравствуйте! у меня есть массив a(i) . необходимо создать процедуру нахождения наименьших общих кратных для следующих пар a(1) и a(n) ; a(2) и a(n-1) .
и ещё вопрос - что делать,если чисел нечетное количество? для среднего числа нок выводить это чило?
Решение задачи: «Нахождение НОК для пар чисел»
textual
Листинг программы
Function gcd(a As Integer, b As Integer) As Integer
If (b > a) Then
gcd = gcd(b, a)
ElseIf (a Mod b) = 0 Then
gcd = b
Else
gcd = gcd(a - b, b)
End If
End Function
Function Lcm(a as integer, b as integer) as integer
lcm=(a*b)\gcd(a,b)
End Function
Sub Task(A() as integer)
l%=1
r%=Ubound(A,1)
Do
Debug.print "Lcm("+A(l%)+","+A(r%)+")=";Lcm(A(l%),A(r%))
l%=l%+1
r%=r%-1
if (l% >= r%) then exit do
Loop
End Sub