Какое количество информации несет двоичный кот 10000111

если перевести в 10ную, то будет 135.

информации в нем 8 ! т.е один символ один

Это просто, если знать курс dim r as integer, d as integer, e as integer, x as string const euro = 45,38, dollar = 32,68 ' здесь вводишь реальные курсы cls print "введите сумму, в конце напишите код валюты - rur, rur, usd, usd, eur, eur" input x if ucase (right (x, 3)) = "rur" then       r = val (trim (left (x, len(x) -       d = r / dollar       print str (d) & "долларов"       e = r / euro       print str (e) & "евро" elseif ucase (right (x, 3)) = "usd" then       d = val (trim (left (x, len(x) -       r = d * dollar       print str (r) & "рублей"       e = r / euro       print str (e) & "евро" elseif ucase (right (x, 3)) = "eur" then       e = val (trim (left (x, len(x) -       r = e * euro       print str (r) & "рублей"       d = r / dollar       print str (d) & "долларов" else       print "введите правильное название валюты в любом регистре! " end if программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.