СРОЧНО!!! ПОМОГИТЕ! Составить алгоритм вычисления выражения S=sinx+sin^2x+...+sin^nx....

Question

СРОЧНО!!! ПОМОГИТЕ!
Составить алгоритм вычисления выражения S=sinx+sin^2x+...+sin^nx. Повторяющимся действием будет S=Ssinx, начальное значение суммы S=sinx.

Answer 1

Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
 begin
 sn:=sn*sin(x);
 s:=s+sn;
 end;
writeln('s = ',s:6:4);
end.

Пример:
0.9 5
s = 2.5490