поиск сомножителей... Опции

[koder]

Как решить такую задачку?
=======================================
Произведение N первых нечетных чисел равно р. Сколько сомножителей взято?
=======================================

[klem4]

хехе и вправду не работает ...

вот :

uses crt;
var
   i,p,count,n:integer;

Begin

   clrscr;

   write('n='); readln(n);

   i:=1; p:=1; count:=0;

   while(p<n) do begin

       p:=p*i;
       inc(i,2);
       inc(count);

   end;

   if p=n then
    writeln('count=',count);

   readln;

End.

и не надо тут ничего сочинять ...