Module Module1

sub Main(ByVal args() as String)
    dim s as String
    dim c, i as integer

    s=Console.ReadLine()
    c=0
    for i=1 to s.length()
        if mid(s,i,1)="1" then
            c+=1
        end if
    next i

    Console.WriteLine(c)
end sub

end Module