main = do
    n<-readLn
    print$length[x|x<-[0..n],x`rem`100==0,x>0]