{В данной последовательности к числу сначала 2 раза прибавляется 3, после один раз вычитается 3. Данная программа "ест" много памяти, но с ходу я ничего лучше не могу придумать} //Pascal ABC.NET v3.0 сборка 1111
Var i,k:integer; ar:array[1..2100] of integer; begin ar[1]:=3; ar[2]:=6; ar[3]:=9; ar[4]:=6; i:=4; while i<2015 do begin; inc(i); ar[i]:=ar[i-1]+3; inc(i); ar[i]:=ar[i-1]+3; inc(i); ar[i]:=ar[i-1]-3; end; write(ar[2015]); <span>end.