Вычисление конечных сумм. паскаль.

[lammy]

жду ответа опытных программистов.

[Stilet]

Ну допустим:

  var s,x:double;n:integer;
begin
 n:=1;
 for n:=1 to 40 do begin   x:=pi/10;
 while x<=(9*pi/10) do begin
  s:=s+(sin(2*n-1)*x)/(2*n-1);
  x:=x+pi/5;
 end;
  write(s:5:2);
end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[lammy]

^^^спасибо большое!
вот у меня есть еще один пример, ни как не могу справиться((
думаю закономерность понятна.. но как это реализовать в паскале не знаю((.

s=1/2 - 2/(4+6) + 3/(6+9+12) - 4/(8+12+16+20) +..+n