import Control.Applicative
import Text.Printf

main :: IO ()
main = solve <$> f >>= printf "%.10f\n"
  where
    f = map read <$> words <$> getLine

solve :: [Double] -> Double
solve [p, q] = (100 * p * q) / (p * q + (100 - p) * (100 - q))