結果

問題 No.221 犯罪都市
コンテスト
ユーザー jj
提出日時 2016-07-31 23:34:06
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 323 bytes
コンパイル時間 794 ms
コンパイル使用メモリ 30,464 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-12-25 11:04:42
合計ジャッジ時間 1,964 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 16
権限があれば一括ダウンロードができます

ソースコード

diff # 

  integer::N,kouseiin,hikouseiin
  integer,parameter::jinkou=1000000,atari=10000
  real,parameter::seido=0.99
  real::gonin
  read *,N
  kouseiin = jinkou/atari*N
  hikouseiin = jinkou - kouseiin
  gonin = REAL(hikouseiin*(1.0-seido))/REAL(kouseiin*seido + hikouseiin*(1-seido))
  print '("0",f0.15)',gonin*100
end program
0