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

ПРИ ВСЕХ ЗНАЧЕНИЯХ ОТВЕТ 0

ОБНОВИ

Var   n,c,P:integer;BeginWrite('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.