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
Просто впиши ссылку на существующий сайт, через несколько минут они сами выделяться и будет возможность перейти на ссылку, но не уверена, что именно в блокноте это работает. Попробуй другой текстовой редактор, если не получится.
Пусть K - количество символов в сообщении.
60 байт = 60*8 бит
8*K = 60*8 ⇒ K = 60*8/8 = 60
Длина сообщения до перекодирования = 16*60 бит = 960 бит = 120 байт