# [R], <s>77</s> <s>76</s> 72 bytes

*Edit: -4 bytes thanks to Robin Ryder*

<!-- language-all: lang-r -->

    sum((d=scan()/10-9)>=c(11,9:2,.5,-1,d)&d<=c(d,14.5,12,11,9.5,8:4,2.5,0))

[Try it online!][TIO-ke00x1iv]

[R]: https://www.r-project.org/
[TIO-ke00x1iv]: https://tio.run/##FYlBCoAwDAR/IwlstSkVbLH@RZqrHiy@P8bTDDOP2XgvIm2jnzfxIjEUPlonEZSaMK8IAuVJd48KyV4k4d9uW81IzshskqN9 "R – Try It Online"

Fairly naive solution, but benefits from [R]'s automatic vectorization and its ```:``` sequence operator.