import Control.Applicative ((<$>))
import Text.Printf (printf)

main :: IO ()
main = do
    [s, k] <- fmap read . words <$> getLine :: IO [Double]
    printf "%.12f\n" $ s / 100