結果
問題 | No.8022 縛りFizzBuzz (Easy) |
ユーザー |
![]() |
提出日時 | 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)
ソースコード
program maininteger::Ninteger,parameter::b=LEN_TRIM("a")integer,parameter::a=b-binteger,parameter::c=b+binteger,parameter::d=c+binteger,parameter::e=d+binteger,parameter::f=e+binteger,parameter::g=f+binteger,parameter::h=g+binteger,parameter::i=h+binteger,parameter::j=i+binteger,parameter::k=j+binteger,parameter::m=j+dinteger::lcharacter(len=j),allocatable::s(:)character(len=e)::cf='(i )'read *,Nallocate(s(N))write(cf(d:d),'(a)'),ACHAR(g*i)do l=b,Nwrite(s(l),cf) ls(l) = adjustl(s(l))enddos(d:N:d)="Fizz"s(f:N:f)="Buzz"s(d*f:N:d*f)="FizzBuzz"print '(a)',send program