{
TASK:sum
LANG:Pascal
}
program sum;
var n, i, d : longword;
    br      : word;
    c       : byte;
begin
readln(n);

if (n mod 2 = 1)
 then br := 1
 else br := 0;

i := 3;
while ((n div i) >= (i div 2)) do
 begin
  c := i mod 2;
  d := i div 2;
  if ((c = 0) and not(n mod i = 0)) and (n mod d = 0) then br := br + 1;
  if ((c = 1) and    (n mod i = 0) and not(n = i)) and ((n div i) > (i div 2)) then br := br + 1;
  i := i + 1;
 end;
writeln(br);
end.
