Паскаль

[ilya1488]

ПАСКАЛЬ
найти наименьший номер элемента последовательности, для которого выполняется условие: |a[n]-a[n-1]|<e. Вывести на экран этот номер и все элементы a[i], где i=1,2,...,n.

a[n]=1/((3n-2)(3n+1))
кто может программу составить плиз

[min@y™]

чото вроде этого:

procedure fuck_it(const e: extended);
var
  idx: LongWord;
  last: extended;
begin
  a:= 0.25; { a[1] }
  idx:= 2;
  
  repeat
    last:= a;
    a:= 1 / (9 * idx * idx - 3 * idx - 2);
    WriteLn(' i = ', i: 5, ' | a[i] = ', a: 3: 6);
    inc(idx);
  until abs(a - last) < e;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!