結果

問題 No.8022 縛りFizzBuzz (Easy)
コンテスト
ユーザー jj
提出日時 2017-03-31 23:49:08
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 659 bytes
コンパイル時間 1,873 ms
コンパイル使用メモリ 32,256 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-07 06:39:16
合計ジャッジ時間 2,647 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:20:22:

   20 |   write(cf(d:d),'(a)'),ACHAR(g*i)
      |                      1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 

program main
  integer::N
  integer,parameter::b=LEN_TRIM("a")
  integer,parameter::a=b-b
  integer,parameter::c=b+b
  integer,parameter::d=c+b
  integer,parameter::e=d+b
  integer,parameter::f=e+b
  integer,parameter::g=f+b
  integer,parameter::h=g+b
  integer,parameter::i=h+b
  integer,parameter::j=i+b
  integer,parameter::k=j+b
  integer,parameter::m=j+d
  integer::l
  character(len=j),allocatable::s(:)
  character(len=e)::cf='(i )'
  read *,N
  allocate(s(N))
  write(cf(d:d),'(a)'),ACHAR(g*i)
  do l=b,N
     write(s(l),cf) l
     s(l) = adjustl(s(l))
  enddo
  s(d:N:d)="Fizz"
  s(f:N:f)="Buzz"
  s(d*f:N:d*f)="FizzBuzz"
  print '(a)',s
end program
0