import Control.Applicative
    
solve :: Int -> Int -> (Int, Int, Double)

solve a b
    = (d, r, f) where
        d = div a b
        r = mod a b
        f = realToFrac a / realToFrac b

input :: Read a => IO [a]

input
    = map read.words <$> getLine

output :: (Int, Int, Double) -> String

output (d, r, f)
    = init $ concat [x ++ " " | x <- [show d, show r, show f]]
    
main :: IO ()
    
main
    = do
        [a, b] <- input
        putStrLn $ output $ solve a b