Вычисляемая последовательность чисел по формуле: 1\((sqrt(n^2 + 1) + sqrt(n^2 - 1 )) , где n=1,2, определить при каком 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) - ;           if ((a - b > e) and (c < = k)) then           begin             m : = m + a + b;             c : = c + 1           end;           a : = b;       end;       writeln(a); end.как-то так вроде =)

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17