module Main where

    import Debug.Trace

    solve :: Int -> Int -> String
    solve a b = (show q ++ " " ++ show r ++ " " ++ show f) where
        (q, r) = divMod a b
        f = fromIntegral a / fromIntegral b

    readLine:: IO [Int]
    readLine = fmap (map read . words) getLine
    
    main :: IO() 
    main = do
        [a, b]    <- readLine
        let ans = solve a b
        putStrLn ans
    
