結果

問題 No.221 犯罪都市
コンテスト
ユーザー jj
提出日時 2016-07-31 23:34:06
言語 Fortran
(gFortran 16.2.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 1 ms / 5,000 ms
+ 42µs
コード長 323 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,367 ms
コンパイル使用メモリ 39,148 KB
実行使用メモリ 9,860 KB
最終ジャッジ日時 2026-10-07 17:20:59
合計ジャッジ時間 2,278 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 16
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

  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