import Data.Functor ((<$>))

main :: IO ()
main = do
  [a,b] <- map (read :: String -> Int) . words <$> getLine
  let a' = fromIntegral a :: Double
      b' = fromIntegral b :: Double
  putStrLn $ unwords [show (a `div` b), show (a `mod` b), show (a' / b')]

