import Data.Fixed

main = getContents >>= putAns.calc.getTestCase

putAns :: (Int, Int, Micro) -> IO()
putAns (x,y,z) = putStrLn $unwords [show x,show y,show (z::Micro)]

getTestCase :: String -> [Int]
getTestCase =  map (read :: String -> Int).words

calc :: [Int] -> (Int, Int, Micro)
calc (a:b:_) = ( fst s, snd s, f a / f b )
    where s   = quotRem a b
          f x = fromIntegral (x :: Int)