根据等差数列求和公式
2*i*a1+i*(i-1)=2*n
枚举i，判断此时除法得到的a1是否为整数即可。
var
 n,i,ans:longint;
begin
 readln(n);
 for i:=1 to trunc(sqrt(2*n)) do
  if (2*n-i*(i-1))mod(2*i)=0 then inc(ans);
 writeln(ans);
end.