read S
N=${#S}
S=$(( 2#$S ))
bit=0
cnt=0
for i in `seq 1 $N`; do
  if [ $(( S % 2 )) -eq $bit ]; then
    cnt=$(( cnt + 1 ))
  fi
  S=$(( S >> 1 ))
  bit=$(( !bit ))
done

if [ $cnt -lt $(( N - cnt )) ]; then
  min=$cnt
else
  min=$(( N - cnt ))
fi
echo $min