S = gets.to_s.split("").map(&:to_i)
sum = 0

S.each do |cnt|
  if  cnt < S.length - 1 && S[cnt] == S[cnt + 1]
    S[cnt + 1] = S[cnt + 1] - 1
    S[cnt + 1] = S[cnt + 1].abs
    sum += 1
  end
end
puts sum
