На паскале:
Рассчитать сумму ряда с общим членом An=1/(n+3) c точность до 0,03 

принцип такой, формулу свою вставьuses crt; var x,e,s,t:real;     k:integer; begin clrscr; e:=0.000001; write('x='); readln(x); s:=0; t:=1; k:=0; while abs(t)>e do  begin   k:=k+1;   t:=-t*x*x/(2*k*(2*k-1));   s:=s+t;  end; write('S=',s:0:6); readln; end.