profile
Опубликовано 5 лет назад по предмету Информатика от Pashasnuff

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

  1. Ответ
    Ответ дан HRAshton
    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.

    Как-то так вроде =)
Самые новые вопросы