module Main where

import qualified Data.ByteString.Char8         as BS
import           Data.Char
import           Data.String
import           Data.List
import           Data.Maybe
import           Control.Monad

main :: IO ()
main = do
  c <- BS.getLine
  print $ BS.length c - 1 - BS.length (BS.filter (== '0') c)