Question

Хээээлп
На Паскале
Задана последовательность из N вещественных чисел. Вычислить значение функции : корень N-ой степени из IX1*X2*X3*...*XNI

Answer 1

Var x,p,rez:real;
    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.