# use strict; use warnings; use utf8; use Encode; use POSIX qw(floor); my $line=; #標準入力 chomp($line); #----- 空白で分割 my @lines=split(/ /,$line); #----- perl 文字列・数値 明確に区別しない 自動変換 my $ans=(floor($lines[0]/5)*$lines[1])/$lines[2]; printf("%.16f\n", $ans); #0.000000000000000