2 anonymous_incognito

Если интересно, вот рабочая кс по тому определению:
http://www.linux.org.ru/jump-message.jsp?msgid=1055496

mySum := StrToInt(FromQToDec(2, s[0]));
for i := 1 to 16 do
  mySum := mySum + StrToInt(FromQToDec(2, s[i]));
mySum := 128 - (127 and mySum);

Функция FromQToDec(2, s[0]) переводит элемент s[0] из 2-ичной в десятичную систему счисления.