結果

問題 No.327 アルファベット列
ユーザー jj
提出日時 2016-09-23 21:40:54
言語 Fortran
(gFortran 14.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 417 bytes
コンパイル時間 951 ms
コンパイル使用メモリ 20,224 KB
最終ジャッジ日時 2024-11-17 19:55:26
合計ジャッジ時間 1,702 ms
ジャッジサーバーID
(参考情報)
judge5 / judge2
このコードへのチャレンジ
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Main.f90:24:10:

   24 |   print *,
      |          1
Error: Comma after * at (1) not allowed without I/O list

ソースコード

diff #
プレゼンテーションモードにする

program main
implicit none
integer*8::N,keta
integer*8::num(12)
integer*8::total,i
read *,N
keta = 1
total = -1
do i=1,12
total = total + 26**i
if(total.ge.N) exit
end do
keta = i
N = N - (total - 26**keta) - 1
do i=1,keta
num(i) = MOD(N,26)
N = N/26
end do
do i=keta,1,-1
write(*,'(a)',advance='no') CHAR(ICHAR('A')+num(i))
end do
print *,
end program main
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0