S=sinx+sin2x+sin3x+...+sin7x

Question

S=sinx+sin2x+sin3x+...+sin7x

Answer 1

Program sinus;
uses crt; var s:real;
 i:byte; x:real; buf:real; j:real;
  begin
 s:=0;
read(x);
for i:=1 to 7 do begin  
   j:=i;  
  x:=j*x;
    buf:=sin(x);  
   s:=s+buf;  
   end;
  writeln(s);
  end.