solve :: [Int] -> (Int , Int , Double)
solve [a,b] = (a `div` b , a `mod` b , fromIntegral a / fromIntegral b)

printResult :: (Int , Int , Double) -> IO ()
printResult (a , b , c) = (putStr . show) a >> putStr " " >> (putStr . show) b >> putStr " " >> (putStr . show) c >> putStrLn ""

main :: IO ()
main  = getLine
    >>= return . map (read :: String -> Int). words
    >>= return . solve
    >>= printResult