Задача на последовательность Опции

[Merlin]

Условие задачи в word'овском файле, т.к. некоторые символы некорректно отображаются.

Задания прикрепляем в виде изображений !!!

Сообщение отредактировано: volvo - 27.10.2005 14:07

[Merlin]

Что то не работает прграмма, не знаю почему...

var
  a, a_next: real;
  n: integer;
const
  eps = 0.001;

begin
  a_next := 2; n := 1;
  repeat
    a := a_next;
    a_next := 2 + 1 / a;
    if abs(a_next - a) > eps then begin
      writeln('a[', n:2, '] = ', a:10:5);         ВОТ здесь выдаёт ошибку
      inc(n);
    end;
  until abs(a_next - a) < eps;
  writeln('n = ', n);
end.