結果

問題 No.8022 縛りFizzBuzz (Easy)
ユーザー jjjj
提出日時 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
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0