Вычислить y=cosx+cosx^2+cosx^3+...+cosx^n

Question

Вычислить y=cosx+cosx^2+cosx^3+...+cosx^n

Comments

в квадрат возводится х, или весь косинус?

Answer 1

Var
 x,s:real;
 n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
end.