Выяснить, можно ли представить n в виде произведения трех последовательных натуральных чисел - VB

Узнай цену своей работы

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

дано натуральное число n. Выяснить можно ли представить n в виде произведения трех последовательных натуральных чисел.

Решение задачи: «Выяснить, можно ли представить n в виде произведения трех последовательных натуральных чисел»

textual
Листинг программы
Function is3p(n As Integer) As Boolean
         k% = n ^ (1 / 3)
         For i% = k% - 3 To k% + 3
             If i% * (i% + 1) * (i% + 2) = n Then
                is3p = True
                Exit Function
             End If
         Next i%
         is3p = False
End Function

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

7   голосов , оценка 3.857 из 5
Похожие ответы