4 вариант(да я очень срочно явился)
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
<span> 1011110
</span><span> 1100111
---------------
11000101
Арифметика двоичной системы счисления нужно выполнять при помощи ТАБЛИЦЫ сложения и умножения. Можно ее найти в интернете.
</span>
Здесь полученное кол-во(которое программа подсчичитает сама) *1 байт (и на 2 ) смотря какая кодировка
Формулы в столбцах а исходные данные можно прописать ниже, решение автозаполнением