結果

問題 No.745 letinopia raoha
ユーザー toshiro_yanagitoshiro_yanagi
提出日時 2018-11-26 21:02:11
言語 Nim
(2.0.2)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 824 bytes
コンパイル時間 3,005 ms
コンパイル使用メモリ 67,736 KB
実行使用メモリ 4,504 KB
最終ジャッジ日時 2023-09-13 20:46:55
合計ジャッジ時間 3,969 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge15
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
4,376 KB
testcase_01 AC 1 ms
4,504 KB
testcase_02 AC 2 ms
4,380 KB
testcase_03 AC 1 ms
4,380 KB
testcase_04 AC 2 ms
4,380 KB
testcase_05 AC 1 ms
4,376 KB
testcase_06 AC 1 ms
4,376 KB
testcase_07 AC 2 ms
4,380 KB
testcase_08 AC 2 ms
4,380 KB
testcase_09 AC 1 ms
4,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import strutils


proc nextString: string =
   result = ""
   while not endOfFile stdin:
      let nextChar = readChar stdin
      case nextChar
      of '\r':
         discard
      of "\n"[0], ' ':
         break
      else:
         add result, nextChar


proc nextInt: int =
   return parseInt nextString()


proc main: void =
   var score = 0
   var bonus = 1

   var pf = nextInt()
   var gt = nextInt()
   let gd = nextInt()
   let ms = nextInt()

   if ms >= 10:
      echo("Impossible")
      return

   for i in 1..int.high:
      if gt == 0 and pf == 0:
         break
      elif gt != 0:
         score += 50 * bonus
         gt -= 1
      elif pf != 0:
         score += 100 * bonus
         pf -= 1

      if i mod 100 == 0:
         bonus *= 2

   echo "Possible"
   echo score


when isMainModule:
   main()
0