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.

Download