Гадость,где,где-нибудь,где-то,год,годный,гром,грохот,грош
Код доделанный (исправленна куча русских букв) и немного переделанный под 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>
На Паскаль абс:
var a,b:real;
begin
readln(a,b);
writeln(trunc(a)*trunc(b));
end.
1101100-108
1100101-101
1110000-112
1010010-82
35-100011
32-100000
49-110001
40-101000