import Control.Monad

main :: IO ()
main = do
    [t, x] <- getFloats
    print $ t / x

getLines :: Int -> IO [String]
getLines n = replicateM n getLine

getLinesInt :: Int -> IO [Int]
getLinesInt n = fmap read <$> getLines n

getInts :: IO [Int]
getInts = map (read :: String -> Int) . words <$> getLine

getFloats :: IO [Float]
getFloats = map (read :: String -> Float) . words <$> getLine