Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

спасибо