結果

問題 No.115 遠足のおやつ
ユーザー jj
提出日時 2017-02-03 00:51:53
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 548 bytes
コンパイル時間 448 ms
コンパイル使用メモリ 42,368 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2025-01-03 01:21:49
合計ジャッジ時間 1,840 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer*8::N,D,K,KK,NN,NK,i,a,b
  integer*8::ans(100)=(/(i,i=1,100)/)
  character*32::cformat='(i0, 99(1x,i0))'
  read *,N,D,K
  NK=N-K
  KK=K*(K+1)/2
  NN=KK+NK*K
  if(NN.lt.D.or.KK.gt.D) then
     print '("-1")'
     return
  else if(N.eq.K) then
     write(*,cformat) ans(1:K)
  else
     a = (D-KK)/NK
     b = (K-a) + MOD(D-KK,NK)
     if(b.eq.0) then
        write(*,cformat) ans(1:(K-a-1)),ans((N-a+1):N)
     else
        write(*,cformat) ans(1:(K-a-1)),b,ans((N-a+1):N)
     end if
  end if
end program main
0