Imports System

Public Class Program
    Public Shared Sub Main(args As String())

        Dim Input As String = Console.ReadLine()
        Console.WriteLine(Input.Replace("0", "").Length)

    End Sub
End Class