{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE BangPatterns #-} import Control.Applicative import Control.Monad import Control.Arrow import Data.List import Data.Maybe import Data.Char import Text.Printf readInt = ( readLn :: IO Int ) readInts = map ( read :: String -> Int ) . words <$> getLine which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = do [ n, g, v ] :: [ Integer ] <- map read . words <$> getLine printf "%.16f\n" $ ( fromIntegral ( n `div` 5 * g ) / fromIntegral v :: Double )