dice = [ z | x <- [2,3,5,7,11,13], z <- map (*x) [4,6,8,9,10,12] ]

main = readLn >>= print . f where
    f x = fromIntegral((length . filter (== x)) dice) / 36.0