COUNTCBG - COUNT N
Tác giả: flashmt
Ngôn ngữ: Pascal
var k,m,n,i,re:longint;
begin
while not eof do
begin
readln(k);
k:=k*2;
re:=0;
for i:=2 to trunc(sqrt(k)) do
if k mod i = 0 then
begin
m:=i; n:=k div m;
if (n-m) mod 2 = 1 then inc(re);
end;
writeln(re);
end;
end.