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

Вопрос от пользователя: Тася

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

Ответ: Ноябрина

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.