Решить задачу номер 17

Question

Решить задачу номер 17

---

Answer 1

Var x,s:real; i:integer;
begin
write('x = '); readln(x);
s:=0;
for i:=1 to 7 do s:=s+sin(i*x)/(2*i);
writeln('s = ',s);
end.

Пример:
x = 0.5
s = 0.776543128538373