Вычислить сумму и количество элементов последовательности 1+1/(1+2)+1/(2+3)+...+1/(n+(n+1)) с точностью до 0,002. Выполнить задачу на Pascal без применения массивов.

если я правильно помню про последовательности...

var

   n : integer;

   s : real;

begin

   while 1/(n+n+1) > 0.002 do begin

       s += 1/(n+n+1);

       n += 1;

   end;

   writeln('s = ', s);

   writeln('n = ', n);

end.