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

[koder]

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

[volvo]

koder,
ну, так в чем проблема? Проходи в цикле по всем нечетным числам начиная с 1, и находи их произведение (и заодно подсчитывай количество) до тех пор, пока произведение не станет равно P... И ты сразу узнаешь, чему равно 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

[volvo]

VBproffi, предупреждаю сразу:
в следующий раз заведомо неверные программы будут удаляться !!!

Например, вот это:

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

Очень мудрое решение: в задаче на "пока <что-то> делать <то-то>" нужно избегать while ... do и repeat ... until

[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.

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