Найти первый член yn, для которого выполнено | yn - yn-1| < 0.0001

[hewlett]

Пусть y 0 = 0, ., yk = (yk-1 + 1)/(yk-1 + 2), где k = 1, 2, .. Найти первый член yn, для которого выполнено | yn - yn-1| < 0.0001

[RUSt88]

выполню за вознаграждение

[mMAg]

ой, стыдно за такое вознаграждение брать. Какой язык программирования??

[Chudo4258]

a:=0;
b:=(a + 1)/(a + 2);
while abs(a-b)>0.0001 do
 begin
  a:=b;
  b:=(a + 1)/(a + 2);
 end;
writeln(b);