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

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

