Задача, Delphi. Оператор case

[Affily]

По номеру n (n>0) некоторого года определить c – номер его столетия (учесть, что, к примеру, началом XX столетия был 1901, а не 1900 год!). Использовать оператор выбора case.

[Аватар]

((n-1) div 100)+1

case к чему?

add

такой изврат пойдет?

  case n mod 100 of
  0: i:=n div 100;
  else i:=(n div 100)+1;
  end;