提出 #2254889


ソースコード 拡げる

var a:longint;begin read(a);if a<12 then writeln(a+1)else writeln('1');end.

提出情報

提出日時
問題 A - 来月は何月?
ユーザ luogu_bot5
言語 Pascal (FPC 2.6.2)
得点 100
コード長 75 Byte
結果 AC
実行時間 0 ms
メモリ 128 KiB

コンパイルエラー

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

ジャッジ結果

セット名 All
得点 / 配点 100 / 100
結果
AC × 12
セット名 テストケース
All test_1.txt, test_10.txt, test_11.txt, test_12.txt, test_2.txt, test_3.txt, test_4.txt, test_5.txt, test_6.txt, test_7.txt, test_8.txt, test_9.txt
ケース名 結果 実行時間 メモリ
test_1.txt AC 0 ms 128 KiB
test_10.txt AC 0 ms 128 KiB
test_11.txt AC 0 ms 128 KiB
test_12.txt AC 0 ms 128 KiB
test_2.txt AC 0 ms 128 KiB
test_3.txt AC 0 ms 128 KiB
test_4.txt AC 0 ms 128 KiB
test_5.txt AC 0 ms 128 KiB
test_6.txt AC 0 ms 128 KiB
test_7.txt AC 0 ms 128 KiB
test_8.txt AC 0 ms 128 KiB
test_9.txt AC 0 ms 128 KiB