Код доделанный (исправленна куча русских букв) и немного переделанный под 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>
Минимально 3. переставлять будем двоеточие, начиная со второго слева.
Дано: 3 бита на 1 шарик
Найти: количество шариков
Решение: 2^3=8
(^ значок степени)
Ответ: 8 шариков в мешочке.
Это слово - МОДЕЛЬ.
вместо Н - сдвиг на 1 букву назад - получится М, вместо П - О, вместо Е - Д, вместо Ё - Е, вместо М - Л, вместо Э - Ь.