• Вопрос по информатике:

    Дано натуральное число n получить наибольшее число вида 4^k меньшее n.
    Нужна программа на Visual Basic

    • Автор:

      armanibruce

  • Function fixlog(n As Integer) As Integer

    Dim l As Double, i, j, k As Integer

    l = log(n) / log(4#)

    i = l - Fix(l)

    j = Sgn(Fix(l) - l) + 1

    k = Fix(l - i) - j

    fixlog = 4^ ^ k

    End Function

    Excel VBA

    • Отвечал:

      jabarityec
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска