Номер элемента последовательности

[lefok]

Номер элемента последовательности

Вычисляет и распечатывает наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла repeat. В ответе должно выдавать n=18. Заранее премного благодарен)

 

[Vladimir_S]

Вычисляет и распечатывает наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла repeat. В ответе должно выдавать n=18. Заранее премного благодарен)

Да ну... скучища школьная!

Var
 A0,A1,A2,D:Real;
 n:Byte;

Begin
 A0:=0;
 A1:=1;
 n:=1;
 Repeat
  A2:=Exp(-(A0+A1));
  D:=Abs(A1-A0);
  A0:=A1;
  A1:=A2;
  Inc(n);
 Until D<1E-4;
 Writeln('n = ',(n-1));
 Readln
End.

 

[lefok]

где в моем коде ошибка? он выдает n=17

var
A0,A1,A2:real;
n:integer;
begin
A1:=1;
A2:=Power(E,(-1));
n:=1;
repeat
n:=n+1;
A0:=A1;
A1:=A2;
A2:=Power(E,(-(A1+A0)));
until abs(A2-A1)<0.0001;
writeln(' Nmin= ',n);
end.