Написать программу на языке Паскаль для решения задачи: Найти сумму всех n-значных чисел. (3≤n≤7).

var x,n: integer;

begin

 x:=1;

 for n:=3 to 7 do x:=x+n;

 Write('Сумма: ', x);

end.

Предлагается хранить типы блоков в массиве. каждый элемент - 2б, количество элементов - 2^20 => всего требуется 2мб. при перезаписи блока и очередной переоценке необходимо учитывать типы данных в блоке до перезаписи (t0), после перезаписи (t1) и в соседних блоках (tl, tr). если t0 = t1, то количество кусков данных не изменяется, т.е. w[i+1] = w[i] tl = t0 = tr < > t1 -> w[i+1] = w[i] + 2 tl = t1 = tr < > t0 -> w[i+1] = w[i] - 2 tl = tr, t0 < > tl, t1 < > tl -> w[i+1] = w[i] далее рассмотрим случаи, когда tl < > tr (tl = t0, tr = t1) или (tr = t0, tl = t1) -> w[i+1] = w[i] (tl = t0, tr < > t1) или (tr = t0, tl < > t1) -> w[i+1] = w[i] + 1 (tl = t1, tr < > t0) или (tr = t1, tl < > t0) - > w[i+1] = w[i] - 1 если все четыре типа не , то w[i+1] = w[i] если перезаписывается блок с адресом 0, считать, что тип tl не совпадает ни с одним из трех других.аналогично при перезаписи блока с адресом fffff, но для tr. вроде все?