Дано натуральное число n получить наибольшее число вида 4^k меньшее n.
Нужна программа на Visual Basic
Ответы
Ответ дал:
0
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
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад