結果

問題 No.478 一般門松列列
ユーザー jjjj
提出日時 2017-01-29 00:09:49
言語 Fortran
(gFortran 13.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 443 bytes
コンパイル時間 346 ms
コンパイル使用メモリ 20,836 KB
最終ジャッジ日時 2024-06-06 08:05:02
合計ジャッジ時間 790 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

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

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

    5 |   write (*,'(i0," ",i0)',advance='no'),0, 2
      |                                      1
Warning: Legacy Extension: Comma before i/o item list at (1)
Main.f90:9:41:

    9 |         write (*,'(" ",i0)',advance='no'),i/2+1
      |                                         1
Warning: Legacy Extension: Comma before i/o item list at (1)
Main.f90:11:41:

   11 |         write (*,'(" ",i0)',advance='no'),i/2
      |                                         1
Warning: Legacy Extension: Comma before i/o item list at (1)
Main.f90:22:38:

   22 |      write (*,'(" ",i0)',advance='no'), j
      |                                      1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 

program main
  implicit none
  integer::n,k,i,j
  read *,n,k
  write (*,'(i0," ",i0)',advance='no'),0, 2

  do i=3, n - k
     if(MOD(i,2).eq.0) then
        write (*,'(" ",i0)',advance='no'),i/2+1
     else
        write (*,'(" ",i0)',advance='no'),i/2
     end if
  end do

  if(MOD(n-k,2).eq.0) then
     j = i/2+1
  else
     j = i/2
  end if

  do i=n-k+1, n
     write (*,'(" ",i0)',advance='no'), j
  end do
  print *,
end program main
0