Ponommareva , ответ добавлен 20.05.2017 в 20:22

Var
   n,c,P:integer;

Begin
Write('n = ');
ReadLn(n);
P:=1;
While n > 0 do
   Begin
   c:=n mod 10;
   P:=P*c;
   n:=n div 10
   End;
WriteLn('Куб кор = ',exp((1/3) * ln(P)));
End.

 0