結果

問題 No.405 ローマ数字の腕時計
コンテスト
ユーザー jj
提出日時 2016-08-05 22:32:10
言語 Fortran
(gFortran 16.1.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 0 ms / 2,000 ms
+ 891µs
コード長 269 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 2,357 ms
コンパイル使用メモリ 37,760 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-08-10 03:10:54
合計ジャッジ時間 2,255 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 27
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

  integer::T,i
  character*8::str
  character*8::time(0:11)
  data time/"XII","I","II","III","IIII","V","VI","VII","VIII","IX","X","XI"/

  read *,str, T

  do i=0,11
     if(time(i).eq.TRIM(str)) exit
  end do

  T = MOD(T+i+1200,12)
  print '(a)',time(T)
end program
0