Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны действительное число А и натуральное N. Вычислить S= 1/A + 1/A^2 .....+(1/A^N) с помощью функции. СРОЧНО!!!ПОМОГИТЕ

Ответ оставил Гость

Var N: integer;
     A: real;
{ рекурсивная функция }
function Sum(N: integer): real;
begin if (N>0) then Result:=1/(exp(N*ln(A)))+Sum(N-1)
 else Result:=0;
end;
{ основная программа }
begin
  write(задайте N:  );
  readln(N);
  write(задайте A:  );
  readln(A);
  writeln(сумма ряда = ,Sum(N):10:6);
end.