Вот ответ на твою задачу:8700(10)=20774(8)
Прикрепляю решение повторно, надеюсь у модераторов больше не возникнет вопросов...
VBA:
Sub P()
Dim x As Double, y As Double
x = Val(InputBox("x = "))
If x <= 0 Then
y = Sin(2 * x)
ElseIf x <= 10 Then
y = Tan(x)
Else: y = 0.33 * x
End If
MsgBox (" Y = " & y)
End Sub
По-моему так:
1 символ кодируется 2 байтами
65строк*55символов=3575 знакомест на странице
3575знакомест*110страниц=393250 знакомест
умножаем на 2 байта и на выходе имеем 786500 байт
120бит 3 кбайт 70 кбайт 150мбайт