Составьте программу по нахождении суммы ряда + + ... + не используя функцию вычисления...

Question

Составьте программу по нахождении суммы ряда + + ... + не используя функцию вычисления степени (Паскаль ABC)

Comments

Есть ли гарантия того, что введенное n - нечетное?

---

lf

---

да*

Answer 1

program n_1;

var n, i: int64; x, y, s: double;

begin

   read(x, n);

   n:=(n-3) div 2;

   s:=0; y:=x;

   for i:=0 to n do begin

       y:=y*x*x;

       s:=s+y;

   end;

   writeln(s:0:5);

end.