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

cnt=0
for i in `seq 1 $N`; do
  if [ $(( $(( BIN ^ bit )) & $(( 2#1 )) )) -eq 1 ]; then
    cnt=$(( cnt + 1 ))
  fi
  BIN=$(( BIN >> 1 ))
  bit=$(( !bit ))
done

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