Значение переменной 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 равно_____.
Почему бы не выполнить и не посмотреть?
Будет выведено 218. Но руками "на бумажке" это прокручивать - рабский труд, поэтому, конечно же, посчитано программно.
Код доделанный (исправленна куча русских букв) и немного переделанный под 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