Сколькими способами можно разложить на равные кучки 36 орехов? - VBA

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

...Вот только в 6 классе нам не впаривали VBA и не заставляли решать задачи с его помощью. Задача: сколькими способами можно разложить на равные кучки 36 орехов? Описать способы разложения на равные кучки.

Решение задачи: «Сколькими способами можно разложить на равные кучки 36 орехов?»

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

                            Sub www()
    Dim n As Long, i As Long, k As Long
    n = 2147483646
    For i = 2 To Int(Sqr(n))
        If n \ i = n / i Then k = k + 2
    Next i
    If (i - 1) ^ 2 <> n Then k = k + 1
    Debug.Print k
End Sub
                        

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

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

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