Решить в Pascal S=sinx+sin2x+sin3x+...+sin7x

Question

Решить в Pascal
S=sinx+sin2x+sin3x+...+sin7x

Answer 1

S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.