Все за одного и одни за всех
Это просто переменные, никакого глубинного смысла.
Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
Код доделанный (исправленна куча русских букв) и немного переделанный под 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>