Описать функцию IsPower5(K) логического типа - VB

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

Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел.

Решение задачи: «Описать функцию IsPower5(K) логического типа»

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

                            Function isPower5(n As Integer, Optional k As Integer = 5) As Boolean
   If n < k Then
      isPower5 = False
   ElseIf n = k Then
      isPower5 = True
   Else
      isPower5 = isPower5(n, k * 5)
   End If
End Function
 
Function numP5(X() As Integer) As Integer
   For i% = 1 To UBound(X, 1)
       If isPower5(X(i%)) Then numP5 = numP5 + 1
   Next i%
End Function
                        

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

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

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