program main
	implicit none
    character(10**5)::s
    integer(8)::i,len1,ans
    read(*,*) s
    len1=len_trim(s)
    ans=0
    if (s(1:1)==1)then
    
    	do i=1,len1
        	if(mod(i,2)==0)then
            	if(s(i:i)/=0)then
                	ans=ans+1
                end if
            else
            	if(s(i:i)/=1)then
                	ans=ans+1
                end if
            end if
        end do
    else
    	do i=1,len1
        	if(mod(i,2)==0)then
            	if(s(i:i)/=1)then
                	ans=ans+1
                end if
            else
            	if(s(i:i)/=0)then
                	ans=ans+1
                end if
            end if
        end do
    end if
    write(*,*) ans
    stop
end program main

    	