結果

問題 No.221 犯罪都市
ユーザー tails
提出日時 2015-06-05 22:28:26
言語 Perl
(5.16.3)
結果
AC  
実行時間 5 ms
コード長 70 Byte
コンパイル時間 10 ms
使用メモリ 2,120 KB
最終ジャッジ日時 2019-07-18 11:20:23

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 5 ms
2,112 KB
02.txt AC 4 ms
2,108 KB
03.txt AC 4 ms
2,116 KB
04.txt AC 4 ms
2,040 KB
05.txt AC 3 ms
2,040 KB
06.txt AC 2 ms
2,112 KB
07.txt AC 4 ms
2,112 KB
08.txt AC 4 ms
2,116 KB
09.txt AC 4 ms
2,116 KB
10.txt AC 3 ms
2,112 KB
99_system_test1.txt AC 4 ms
2,116 KB
99_system_test2.txt AC 4 ms
2,112 KB
99_system_test3.txt AC 3 ms
2,120 KB
99_system_test4.txt AC 4 ms
2,108 KB
99_system_test5.txt AC 4 ms
2,116 KB
99_system_test6.txt AC 4 ms
2,108 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$n=<>*100;
$y=$n*.99;
$x=(1e6-$n)*.01;
$r=1-$y/($x+$y);
print $r*100;
0