xs :: [Double]
xs = [1.000994575127818, 1.000494188604119, 1.000246086553308, 1.000122713347579, 1.000061248135059, 1.000030588236307, 1.000015282259409, 1.000007637197638, 1.000003817293265, 1.000001908212717]

main :: IO ()
main = do
    n <- readLn :: IO Int
    if n < 20
        then do
            print $ xs !! (n - 10)
        else do
            print $ 1.0