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

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

To: Merlin
В следующий раз внимательно читай правила, Ok?


Вот это - одно из решений твоего задания...

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.

Кстати, поиск по слову "последователь*" или "ряды" должен выдать готовые программы... :yes:

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

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.

To: Merlin
не принимается. Перед тем, как программу выложить, я ее проверяю (причем не один раз) !!!

Телепатов у нас нет. Какую ошибку?

Error 85 ( ;)

Ещё вопрос : А readln там надо писать ?

А не нужно удалять символы в программе. ";" удалил? Чего ж ты хочешь? Скопируй программу как положено (Copy + Paste, не нужно перепечатывать вручную), и все будет работать...

А у меня не копируется, ладно попробую ещё раз.

Так надо там readln ?
Как тогда посмотреть результат ?