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

Question

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

Comments

x вводится с клавиатуры?

---

да

Answer 1

Var y,k,x:real;
n,i:integer;
begin
readln(x);
readln(n);
y:=0;k:=1;
for i:=1 to n do begin
k:=(sin(x))*k;
y:=y+k;
end;
writeln(y);
end.

Comments

почему там sin разве не cos

---

прости, вместо sin напиши cos и всё

---

спасибо