Question

Значение переменной 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
равно_____.

Answer 1

Код доделанный (исправленна куча русских букв) и немного переделанный под 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