inputs = gets
inputs.slice!("\n")
tiles = ( inputs.chars ).map { |s| s=='1' ? 1 : 0 }

# 最終状態は101...か010...にしかならない
# 最終状態を作成する
e1 = Array.new(tiles.length) { |i| i.modulo(2)==0 ? 1 : 0 }
e2 = Array.new(tiles.length) { |i| i.modulo(2)==1 ? 1 : 0 }

c1 = 0
c2 = 0
tiles.each_with_index do |t,i|
    c1 = c1 + 1 if e1[i] != t
    c2 = c2 + 1 if e2[i] != t
end

puts [c1,c2].min