提出 #40345582


ソースコード 拡げる

Copy
Imports System
Module A
Sub Main()
Dim D As Integer = Console.ReadLine()
Console.Write(D / 100)
End Sub
End Module
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Imports System
Module A
    Sub Main()

        Dim D As Integer = Console.ReadLine()
        Console.Write(D / 100)

    End Sub
End Module

提出情報

提出日時
問題 A - Water Pressure
ユーザ WorldEndHeroes
言語 Visual Basic (.NET Core 3.1.101)
得点 100
コード長 148 Byte
結果 AC
実行時間 82 ms
メモリ 28396 KB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 3
AC × 11
セット名 テストケース
Sample sample_00.txt, sample_01.txt, sample_02.txt
All case_00.txt, case_01.txt, case_02.txt, case_03.txt, case_04.txt, case_05.txt, case_06.txt, case_07.txt, sample_00.txt, sample_01.txt, sample_02.txt
ケース名 結果 実行時間 メモリ
case_00.txt AC 82 ms 28396 KB
case_01.txt AC 79 ms 28000 KB
case_02.txt AC 77 ms 27848 KB
case_03.txt AC 82 ms 28148 KB
case_04.txt AC 79 ms 27932 KB
case_05.txt AC 78 ms 27992 KB
case_06.txt AC 79 ms 28252 KB
case_07.txt AC 79 ms 28064 KB
sample_00.txt AC 75 ms 28252 KB
sample_01.txt AC 79 ms 28092 KB
sample_02.txt AC 79 ms 28104 KB


2025-04-09 (水)
17:58:37 +00:00