module Main where

import Control.Applicative
import Text.Printf
import Numeric

main :: IO ()
main = do
  { [a,b] <- getInts
  ; let (x,y) = a `divMod` b
  ; let z = fromIntegral a / fromIntegral b
  ; putStrLn (unwords [ showFFloat Nothing (fromIntegral x) ""
                      , showFFloat Nothing (fromIntegral y) ""
                      , showFFloat Nothing z ""])
  }

--

getInts :: IO [Int]
getInts = map read . words <$> getLine

putInts :: [Int] -> IO ()
putInts = putStrLn . unwords . map show

