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

[koder]

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

[VBproffi]

Примерно так

Код

Uses
   CRT;
var
   count,
   count2 : Integer;
   us     : Integer;
   su     : integer;
   p      : Byte;
begin
    ClrScr;
            ReadLn(p);
            su:= 1;

            For count:= 1 to 5 do
                If (count mod 2 <>0) AND (su <>p) then
                   begin
                        su:= su * count;
                        count2:= count2+1;
                   end;

            WriteLn(count2);
     ReadKEy;
end.

count mod 2 <>0

- проверяет нечётность (можно было и подругому - не столь важно)

(su <>p)

- чтобы обойтись без while..do и repeat..until и не париться с избежанием лишней итерации

su:= su * count

- собственно для вычисления произведения

count2:= count2+1

- для накопления количества элементов произведения которых даёт P