結果
問題 |
No.379 五円硬貨
|
ユーザー |
![]() |
提出日時 | 2016-07-25 06:48:16 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 28 ms / 1,000 ms |
コード長 | 342 bytes |
コンパイル時間 | 62 ms |
コンパイル使用メモリ | 8,704 KB |
実行使用メモリ | 8,704 KB |
最終ジャッジ日時 | 2024-11-06 16:16:37 |
合計ジャッジ時間 | 1,241 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 16 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
# use strict; use warnings; use utf8; use Encode; use POSIX qw(floor); my $line=<STDIN>; #標準入力 chomp($line); #----- 空白で分割 my @lines=split(/ /,$line); #----- perl 文字列・数値 明確に区別しない 自動変換 my $ans=(floor($lines[0]/5)*$lines[1])/$lines[2]; printf("%.16f\n", $ans); #0.000000000000000