結果

問題 No.405 ローマ数字の腕時計
コンテスト
ユーザー jj
提出日時 2016-08-06 00:29:57
言語 Fortran
(gFortran 16.1.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 0 ms / 2,000 ms
+ 940µs
コード長 260 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,344 ms
コンパイル使用メモリ 37,888 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-08-10 03:17:08
合計ジャッジ時間 3,048 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
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.str) exit
  end do
  T = MOD(T+i+1200,12)
  print '(a)',time(T)
end program
0