$a=<>,print((grep{$a%$_<1&&$a/$_<=9}1..9)?1:0)for 0..99