結果
問題 | No.499 7進数変換 |
ユーザー |
![]() |
提出日時 | 2017-04-07 22:26:37 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 336 bytes |
コンパイル時間 | 837 ms |
コンパイル使用メモリ | 20,480 KB |
最終ジャッジ日時 | 2024-07-16 00:53:12 |
合計ジャッジ時間 | 1,208 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge5 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Main.f90:20:10: 20 | print *, | 1 Error: Comma after * at (1) not allowed without I/O list Main.f90:18:34: 18 | write (*,'(i0)',advance='no'),L(i) | 1 Warning: Legacy Extension: Comma before i/o item list at (1)
ソースコード
program mainimplicit noneinteger*8::N,M,i,digitinteger,allocatable::L(:)read *,NM=7do i=1,20if(M.gt.N) exitM=M*7end dodigit=iallocate(L(digit))do i=digit, 1, -1L(i) = MOD(N,7)N=N/7end dodo i=1,digitwrite (*,'(i0)',advance='no'),L(i)end doprint *,end program main