Question

Дано натуральное число. Определить количество его нечетных делителей.
написать программу паскаль)

Answer 1

var n,i,k:Integer;
Begin
 Read(n);
 for i:=1 to n do
   if (n mod i = 0) and (i mod 2 <>0) then k:=k+1;
 Writeln(k);
end.