1 буква=1 байт=8 бит
(кол-во слов в сообщении умножь на 8)
В Excel удобно строить, сам считает :)
Код доделанный (исправленна куча русских букв) и немного переделанный под VBScript, потому что <span>BASIC </span>у меня нет
<span>Sub Zadanie()
D = 0
M = 1
FOR A = -1 to 0
FOR B = -1 to 0
FOR C = -1 to 0
D = D - ((A AND C) EQV NOT (B IMP (A OR C))) * M
M = M * 2
NEXT
NEXT
NEXT
Msgbox "D="& D
End Sub
Вывод
D=218
</span>