Фёдор
7 год назад
Хээээлп
На Паскале
Задана последовательность из N вещественных чисел. Вычислить значение функции : корень N-ой степени из IX1*X2*X3*...*XNI
ОТВЕТЫ
Аксентьевич
Aug 12, 2019
Var x,p,rez:real;
n: integer;
begin
p:=1;
write(числа через пробел (завершение ввода - 0): ); read(x);
while xlt;gt;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.
n: integer;
begin
p:=1;
write(числа через пробел (завершение ввода - 0): ); read(x);
while xlt;gt;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.
45
