Напишите пожалуйста программу по формуле S=1+x/1+x^2/2+x^3/3+...+x^n/N

Question

Напишите пожалуйста программу по формуле S=1+x/1+x^2/2+x^3/3+...+x^n/N

Answer 1

PASCAL:
var
   S, x: real;
   i, n: integer;

begin
readln(x, n);
S := 1;
for i := 1 to n do
   S := S + power(x, i) / i;

writeln(S);
end.

C:
#include
#include
#include

int main() 
{
   float S = 1,
           x = 0,
           n = 0;
   scanf("%f %f", &x, &n);
   
   for (int i = 1; i <= n; i++)<br>      S = S + pow(x, i) / i;
   
   printf("%f", S);
   getch();
   return 0;
}

Comments

спасибо))