import Numeric

main :: IO ()
main = do
  input <- getLine
  let [a, b] = map read $ words input :: [Int]
  let [a', b'] = map read $ words input :: [Double]
  putStrLn $ unwords $ (map show [a `div` b, a `mod` b]) ++ ([showFFloat Nothing (a' / b') ""])