import Control.Applicative
import Control.Monad
import Data.List
rInt s = read s :: Int

main = do
   [a, b] <- map rInt . words <$> getLine
   putStrLn $ unwords $ (map show [div a b, mod a b]) ++ (map show [(fromIntegral a) / (fromIntegral b)])