Submission #110055

Source Code Expand

Module Module1
 
    Sub Main()
 
        Dim M1$() = Console.ReadLine
        Dim m% = M1$(0)
        Dim vv% = 0
 
        If m >= 100 & m <= 5000 Then
            vv = m / 100
 
        ElseIf m >= 6000 & m <= 30000 Then
            vv = m / 1000 + 50
 
        ElseIf m >= 35000 & m <= 70000 Then
            vv = (m / 1000 - 30) / 5 + 80
 
        ElseIf m > 70000 Then
            vv = 89
 
        End If
 
        Console.WriteLine(vv)
 
    End Sub
 
End Module

Submission Info