25.11.2015, 20:28
|
#3 (permalink)
|
|
Новичок
Регистрация: 25.11.2015
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
где в моем коде ошибка? он выдает 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.
|
|
|