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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник