А-1
Б-01
В-0001
Г-0010
Д-0011
Е-00000
Ж-00001
1+2+4*3+5*2=25
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub
Это не информатика! это математика... задай в математику.Возможно помогут
Ответ:
Объяснение:
дискета,SD ROM,DVD ROM,флеш память,Жесткий диск
4 Кбайта = 2^2 Кбайта = 2^2 * 1024 байт = 2^2 * 2^10 байт = 2^12 байт = 2^12 * 8 бит = 2^12 * 2^3 бит = 2^15 бит