Предмет: Информатика,
автор: robik308
Дано натуральное число n. Найти кубический корень из произведения цифр заданного числа. ПАСКАЛЬ.
Ответы
Автор ответа:
0
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.
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
ПРИ ВСЕХ ЗНАЧЕНИЯХ ОТВЕТ 0
Автор ответа:
0
ОБНОВИ
Интересные вопросы
Предмет: Русский язык,
автор: krivonosovaanna
Предмет: Английский язык,
автор: Artemmagome
Предмет: Геометрия,
автор: applebloom027
Предмет: Математика,
автор: aikooooo1
Предмет: География,
автор: Иришка365