main :: IO () main = show . solve . read <$> getLine >>= putStrLn solve :: Double -> Int solve n = if r' > 0 then r' else 1 where r = sqrt $ n / 3 r' = truncate r