[CONDOR]

Вроде бы код правильный, но все время при вводе любого числа возникает один и тот же ответ, к тому же из больших чисел.

Код:

label 1,2;
var
a1,a2,a3: real;
i,m: integer;
begin
a1:=1;
a2:=10;
a3:=(a2+a1)/2;
i:=3;
Writeln(Rus('Введите m: '));
Readln(m);
While abs(a3-7)<exp(-4*ln(10)) do
begin
i:=i+1;
a1:=a2;
a2:=a3;
a3:=(a2+a1)/2;
If i>m then goto 1;
end;
Writeln(Rus('Порядковй номер члена равен: '),i);
Readln;
goto 2;
1: Writeln(Rus('За'),m,Rus(' оборотов цикла условие не достигнуто'));
2: end;

[PS11011010]

Код:

a1:=1;
a2:=10;
a3:=(a2+a1)/2;

a3 = 5,5

abs(a3-7)<exp(-4*ln(10))

abs(a3-7) = -1,5, а, если верить Google, то exp((-4) * ln(10)) = 0.0001