read S
BIN=$(( 2#$S ))
N=${#S}

cnt1=0
cnt2=0
temp=$BIN
for i in `seq 1 $(( N / 2 ))`; do
  if [ $(( $(( temp ^ 0 )) & 1 )) -eq 1 ]; then
    cnt1=$(( cnt1 + 1 ))
  else
    cnt2=$(( cnt2 + 1 ))
  fi
  temp=$((temp >> 1 ))
  if [ $(( $(( temp ^ 1 )) & 1 )) -eq 1 ]; then
    cnt1=$(( cnt1 + 1 ))
  else
    cnt2=$(( cnt2 + 1 ))
  fi
  temp=$(( temp >> 1 ))
done

if [ $cnt1 -lt $cnt2 ]; then
  min=$cnt1
else
  min=$cnt2
fi
echo $min