Submission #3806783

---

Source Code Expand

Imports System.Console

Module Program
    Sub Main()
        Dim S As String = ReadLine() & "+"
        Dim ans As Integer
        Dim flg As Boolean

        For i As Integer = 0 To S.Length - 1
            If i Mod 2 = 0 And S(i) = "0"c Then
                flg = True
            ElseIf S(i) = "+"c Then
                If Not flg Then ans += 1
                flg = False
            End If
        Next
        WriteLine(ans)
    End Sub
End Module

Submission Info

Judge Result