結果
問題 | No.525 二度寝の季節 |
ユーザー | jj |
提出日時 | 2017-06-09 22:25:00 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 270 bytes |
コンパイル時間 | 1,583 ms |
コンパイル使用メモリ | 30,464 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-09-22 15:02:19 |
合計ジャッジ時間 | 2,631 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 WA * 1 |
other | AC * 5 WA * 28 |
コンパイルメッセージ
Main.f90:6:24: 6 | read(time(1:2),'(i2)'),h | 1 Warning: Legacy Extension: Comma before i/o item list at (1) Main.f90:7:24: 7 | read(time(4:5),'(i2)'),m | 1 Warning: Legacy Extension: Comma before i/o item list at (1)
ソースコード
program main implicit none character*5::time integer::h,m,carry read *,time read(time(1:2),'(i2)'),h read(time(4:5),'(i2)'),m if(m.ge.55) then carry = 1 end if m = MOD(m+5,60) h = MOD(h+carry,24) print '(i2.2,":",i2.2)',h,m end program main