Цитата:
Сообщение от lefok
Вычисляет и распечатывает наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла 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.