ПАСКАЛЬ !!! Знайти найменший номер члена послiдовностi, для якого виконує- ться умова |an...

Question

ПАСКАЛЬ !!! Знайти найменший номер члена послiдовностi, для якого виконує- ться умова |an − an−1| < e. Вивести на екран цей номер i всi еле- менти ai , де i = 1, 2, . . . , n:
an =0.5*(an−1+an−2)
a1 = 1, a2 = 2
an =(n^ln n)/(ln n)^n

Answer 1

var
  a, p: real;
  n, i: integer;
begin
  p := 1;
  readln(a, n);
  for i := 0 to (n - 1) do
    p := p * (a + i);
  writeln(p);
end.