Вычисляемая последовательность чисел по формуле: 1\((sqrt(n^2 + 1) + sqrt(n^2 - 1 )) , где n=1,2,3...Определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую Е.Вычислить сумму М таки...

Вычисляемая последовательность чисел по формуле: 1\((sqrt(n^2 + 1) + sqrt(n^2 - 1 )) , где n=1,2,3... Определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую Е. Вычислить сумму М таких чисел начиная с К-ого.
Гость
Ответ(ы) на вопрос:
Гость
var k, m, e, a, b, c: real;     n: integer; begin      readln(e);      readln(k);      for n := 1 to 1000 do      begin           b := 1/((sqrt(sqr(n) + 1) + sqrt(sqr(n) - 1)));          if ((a - b > e) and (c <= k)) then          begin             m := m + a + b;             c := c + 1          end;          a := b;      end;      writeln(a); end. Как-то так вроде =)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы