import Text.Printf
import Control.Applicative

main :: IO ()
main = do
    n <- read <$> getLine
    printf "%f\n" $ no221 n

no221 :: Double -> Double
no221 n = 100 * normal * (1 - hantei) / (normal * (1 - hantei) + mafia * hantei)
  where
    mafia = zenjinko * n / ritsu
    normal = zenjinko * (ritsu - n) / ritsu


hantei = 0.99 :: Double
zenjinko = 1000000 :: Double
ritsu = 10000 :: Double