Хээээлп
На Паскале
Задана последовательность из N вещественных чисел. Вычислить значение функции : корень N-ой степени из IX1*X2*X3*...*XNI
На Паскале
Задана последовательность из N вещественных чисел. Вычислить значение функции : корень N-ой степени из IX1*X2*X3*...*XNI
Answers & Comments
n: integer;
begin
p:=1;
write('числа через пробел (завершение ввода - 0): '); read(x);
while x<>0 do
begin
p:=p*abs(x);
read(x);
end;
write('N = '); readln(n);
rez:=exp((1/n)*ln(p));
writeln('корень ',N,' -ой степени из ',p,' = ',rez);
end.