import Data.List
import Data.Char
import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as BS8

main :: IO ()
main = do
    x <- fst . fromJust . BS8.readInteger <$> BS8.getLine

    let
        m = ceiling $ (toRational(x `mod` 100)) / 5
        n = div x 100

    print $ if n >=m
        then 1
        else 0
