Вычисляемая последовательность чисел по формуле: 1sqrtn^2 + 1 + sqrtn^2 — 1 , где n=1,2,3…Определить при каком n два соседних числа будут отличать

1 Январь 0001



Вычисляемая последовательность чисел по формуле: 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.

    Как-то так вроде =)






Информатика

Комментарии закрыты.