Дано натуральное число n. Найти кубический корень из произведения цифр заданного числа. ПАСКАЛЬ.



Дано натуральное число n. Найти кубический корень из произведения цифр заданного числа. ПАСКАЛЬ.

[email protected] в категроии Информатика, вопрос открыт 21.05.2017 в 00:04

1 ответ



Ponommareva , ответ добавлен 21.05.2017 в 00: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.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.