Даны натуральное n, действительное x. Вычислить: S = sinx + sinsinx+ ... + sinsin... sinx. (программа Паскаль)

Question

Даны натуральное n, действительное x. Вычислить:
S = sinx + sinsinx+ ... + sinsin... sinx.

Answer 1

readln (x);
x1:=sin(x);
s:=x1;
for i:=2 to n do begin
x1:=x1*sin(x);
s:=s+x1;
end;
writeln (s:5:2);