Submission #110062


Source Code Expand

Module Module1

    Sub Main()

        Dim M1$() = Console.ReadLine.Split
        Dim m% = M1$(0)
        Dim vv% = 0

        If m < 100 Then
            Console.WriteLine("00")
        ElseIf m >= 100 & m <= 5000 Then
            vv = m / 100
            If vv < 10 Then
                Console.WriteLine("0" + vv)
            Else
                Console.WriteLine(vv)
            End If
        ElseIf m >= 6000 & m <= 35000 Then
            vv = m / 1000 + 50
            Console.WriteLine(vv)
        ElseIf m >= 35000 & m <= 70000 Then
            vv = m / 1000 - 30
            vv = vv / 5 + 80
            Console.WriteLine(vv)
        Else
            Console.WriteLine("89")
        End If
    End Sub

End Module

Submission Info

Submission Time
Task B - 視程の通報
User shadowlink_0122
Language Visual Basic (Mono 2.10.8)
Score 0
Code Size 754 Byte
Status WA
Exec Time 123 ms
Memory 5768 KB

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
AC × 12
WA × 26
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt, test_31.txt, test_32.txt, test_33.txt, test_34.txt, test_35.txt
Case Name Status Exec Time Memory
00_sample_01.txt WA 110 ms 5576 KB
00_sample_02.txt WA 112 ms 5560 KB
00_sample_03.txt WA 111 ms 5688 KB
test_01.txt AC 98 ms 5232 KB
test_02.txt AC 99 ms 5232 KB
test_03.txt WA 116 ms 5692 KB
test_04.txt AC 109 ms 5576 KB
test_05.txt WA 113 ms 5568 KB
test_06.txt WA 112 ms 5564 KB
test_07.txt WA 109 ms 5568 KB
test_08.txt WA 118 ms 5768 KB
test_09.txt WA 108 ms 5560 KB
test_10.txt WA 113 ms 5580 KB
test_11.txt AC 101 ms 5220 KB
test_12.txt AC 98 ms 5232 KB
test_13.txt AC 108 ms 5228 KB
test_14.txt AC 119 ms 5232 KB
test_15.txt AC 106 ms 5224 KB
test_16.txt AC 111 ms 5580 KB
test_17.txt WA 123 ms 5688 KB
test_18.txt AC 112 ms 5568 KB
test_19.txt AC 109 ms 5584 KB
test_20.txt AC 109 ms 5560 KB
test_21.txt WA 105 ms 5564 KB
test_22.txt WA 110 ms 5580 KB
test_23.txt WA 109 ms 5560 KB
test_24.txt WA 113 ms 5560 KB
test_25.txt WA 109 ms 5568 KB
test_26.txt WA 112 ms 5560 KB
test_27.txt WA 114 ms 5556 KB
test_28.txt WA 112 ms 5572 KB
test_29.txt WA 113 ms 5564 KB
test_30.txt WA 116 ms 5572 KB
test_31.txt WA 115 ms 5568 KB
test_32.txt WA 117 ms 5620 KB
test_33.txt WA 111 ms 5564 KB
test_34.txt WA 109 ms 5580 KB
test_35.txt WA 110 ms 5584 KB