{
TASK:sum
LANG:Pascal
}

var
  n: Int64;
  i,j: Int64;
  br: Int64;
  sum: Int64;

begin
  readln(n);
  i:= 1;
  br:= 0;
  repeat
    j:= i;
    sum:= i;
    repeat
      j:= j+1;
      sum:= sum+j;
      if sum = n then
      begin
        br:= br+1;
        break;
      end;
      if sum > n then
        break;
    until j = n;
    i:= i+1;
  until i = n;
  writeln(br);
end.
