{-
HOME- ITP1-ITP1_3-D
Discussion Solution Statistics Submit
 
Repetitive Processing - How Many Divisors?
Time Limit : 1 sec, Memory Limit : 65536 KB
?´???°?????°

???????????´??° a???b???c ??????????????????a ?????? b ?????§?????´??°????????????c

????´???°?????????????????????????±???????????????°????????????????????????????????????
Input

a???b???c

?????????????????????????????§??????????????????????????????
Output

?´???°?????°???????????????????????????????????????
Constraints

    1???a,b,c???10000

a???b

Sample Input

5 14 80

Sample Output

3

  -}
import Data.List.Split
main = do
  s <- getLine
  putStrLn $ show (aux s)

aux :: String -> Int
aux s = length $ filter (\x-> c `mod` x==0) [a..b]
  where
  [a,b,c] = map (\x -> read x :: Int)  (splitOn " " s)