с использованием вложенных циклов

[вкусняшка]

задано число р , определить является ли оно факториалом некоторго числа ,если "да", то найти это число.
кто -нибудь РЕШИТЕ ПЖЛСТА

[Stilet]

А как ты думаеш как это решается?

[alex_fcsm]

var x,i,n:longint;
    flag:boolean;
begin
readln(x);
i:=1;n:=1;
flag:=false;
while i<=x do
 begin
  if i=x then begin
               flag:=true;
               break;
              end
     else  begin
             inc(n);
             i:=i*n;
           end;
 end;
 if flag then writeln('Yes ',n)
         else writeln('NO');
end.

P.S. Хотя что-то я не придумал как тут еще один цикл прилепить

[вкусняшка]

не скажу воть

[вкусняшка]

спсибочки