Submission #330379

---

Source Code Expand

Module Module1
    Public Sub Main()
        Dim sigM As Single = Console.ReadLine() / 1000
        Dim lngVV As Long

        Select Case sigM
            Case Is < 0.1
                lngVV = 0
            Case 0.1 To 5
                lngVV = sigM * 10
            Case 6 To 30
                lngVV = sigM + 50
            Case 35 To 70
                lngVV = (sigM - 30) / 5 + 80
            Case Is > 70
                lngVV = 89
        End Select

        Console.WriteLine(Right("0" & Trim(Str$(lngVV)), 2))
    End Sub
End Module

Submission Info

Judge Result