Значение переменной d, вычисленное в программе, написанной на языке basic, d = о м = 1 for а = -1 то о for в = -1 тоо for с = -1 то о d = d - ((a and с) eqv not (в imp (a or * м м = м * 2 next с next в next а print "d="; d

Код доделанный (исправленна куча русских букв) и немного переделанный под VBScript, потому что BASIC у меня нет

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