Составить программу которая будет вычислять значение выражения у = cosx + cosx^2 + cosx^3 + + cosx^n, используя процедуру вычисляющую x в n степени

Процедурой: // возводит действилельное число x в целую степень n procedure pow(const x: real; const n: integer; var st: real); var i: integer; begin st: =1; for i: = 1 to n do       st: =st*x; end; var     x,y,st: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); for n: = 1 to n do       begin       pow(x,n,st);       y: =y+cos(st);       end; writeln('y = ',y); end. функцией: // возводит действилельное число x в целую степень n function pow(const x: real; const n: integer): real; var i: integer; begin result: =1; for i: = 1 to n do       result: =result*x; end; var     x,y: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); for n: = 1 to n do       y: =y+cos(pow(x,n)); writeln('y = ',y); end. циклом: var     x,y,st: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); st: =1; for n: = 1 to n do       begin       st: =st*x;       y: =y+cos(st);       end; writeln('y = ',y); end.

E) Xls

Объяснение: