提出 #898398

ソースコード 拡げる

main :: IO ()
main = do
  a <- readLn
  b <- readLn
  h <- readLn
  print $ floor $ (a + b) * h / 2

提出情報

提出日時
問題 A - 台形
ユーザ aruneko99
言語 Haskell (GHC 7.10.3)
得点 100
コード長 104 Byte
結果 AC
実行時間 3 ms
メモリ 508 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 2
AC × 5
セット名 テストケース
Sample sample_01.txt, sample_02.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt
ケース名 結果 実行時間 メモリ
01.txt AC 3 ms 508 KiB
02.txt AC 3 ms 508 KiB
03.txt AC 3 ms 508 KiB
04.txt AC 3 ms 508 KiB
05.txt AC 3 ms 508 KiB
sample_01.txt AC 3 ms 508 KiB
sample_02.txt AC 3 ms 508 KiB