import Control.Applicative
import Control.Monad
import Data.List
import Text.Printf

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

main :: IO ()
main = do
  [a, b] <- readInts
  let (d, r, f) = solve a b
  printf "%d %d %f\n" d r f

solve :: Int -> Int -> (Int, Int, Double)
solve a b = (d, r, f)
 where
  (d, r) = a `quotRem` b
  f = fromIntegral a / fromIntegral b

