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

program zz1;

var n, s, k:real; / / задаем переменные не целого типа

begin

s:=1; / / задаем начальное значение числа ряда последовательности

k:=s; / / получаем первое значение элемента

while k > 0.002 do / / организуем цикл, пока элемент последовательности больше чем 0,002

begin

k:=1 / (s + (s + 1)); / / вычисляем очередной элемент последовательности

s:=s + 1; / / получаем следующее число ряда последовательности

end;

write (' найденный порядковый номер элемента последовательности = ', s); / / выводим ответ на экран

end.