Треугольников 40
и 10 квадратов
Var A: array[0..100] of integer;
1 символ = 2 байта
1). 60*2=120 байт - на 1 строке
2). 120*40=4800 байт - на 1 странице
{В данной последовательности к числу сначала 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.
Ответ: 2019</span>