Question

Составьте программу вычисления суммы S=7/11+17/21+27/31+...+2007/2011

Answer 1

Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.