Nein Detlef dann wirds falsch
Da 2 Fehler eingebaut sind, die sich gegenseitig kompensieren, müsstest du schon beide beheben
Der erste Fehler ist natürlich dass 2^1 = 2 und 2^0 = 1
Der zweite liegt hier:
Result := ZweiHoch(Length(s)) + BinDual(Copy(s, 2, Length(s) - 1))
Denn length() liefert bei eine string der länge 1 auch 1 Zuürck und nicht 0 (obwohl die Wertigkeit dieser Position 2^0 ist)
Wenn der erste Fehler korrigiert wird, muss da dann
length(s)-1 stehen