fork download
  1. (* this code is the answer for ABC200-A *)
  2. (* atcoder.jp/contests/abc200/tasks/abc200_a *)
  3. let div_ceil x y = (x + y - 1) / y;;
  4.  
  5. let year = int_of_string (read_line());;
  6. let century = div_ceil year 100;;
  7.  
  8. let _ = print_endline (string_of_int (century));;
  9.  
Success #stdin #stdout 0s 5420KB
stdin
2021
stdout
21