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

[Merlin]

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

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

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

[volvo]

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

12. Пожалуйста, не прикрепляйте к сообщению документы DOC, из-за возможной несовместимости версий OFFICE, они могут не читаться Вместо DOC документов, - картинки!

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

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: