Вычисляемая последовательность чисел по формуле: 1\ (sqrt (n^2+1)+sqrt (n^2 — 1), где n=1,2,3……

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. Как-то так вроде=)