import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Double
solve n = (1000000 - 100 * dn) / (10000 + 98 * dn)
  where dn = fromIntegral n