To Серж-1:
Действительно, похоже на раскидывание платежных сумм по документам.
Но если рассматривать математически именно предоставленную вами таблицу,
то можно попытаться что-то порешать. А именно:
Для приведенной вами таблицы (143 записи), 126 из которых
не превышают заданного предела суммы, максимально допустимое
количество слагаемых для достижения заданной суммы равно 59 (m.kol_max см.ниже)
(очевидно, что максимум количества слагаемых может достигаться
только при сложении наименьших из имеющихся значений NUM).
Минимальное количество слагаемых - 2, раз в таблице нет значения NUM,
которое "в одиночку" удовлетворяло бы заданному значению суммы.
Исходя из таких граничных условий уже можно кое-что подсчитать.
Максимальное количество возможных вариантов - действительно велико:
Сочетаний_из_126_по_59 + Сочетаний_из_126_по_58 + ... Сочетаний_из_126_по_2 =
~5,33Е+39. Вычислений не привожу - простая комбинаторика, к делу не относится.
Можно сказать только, что перебрать такое количество вариантов -
никаких компутеров не хватит. А если учесть, что для анализа такого объема информации
его сначала нужно где-то разместить - на это понадобится более 4,96Е+30 Гб!
К сожалению, у меня такого ВИНТА нету под рукой, поэтому попытался решить
вашу задачку путем сохранения промежуточной суммы как начальной для каждой
последующей итерации. Не уверен, что получаемый результат охватывает ВСЕ
возможные варианты, но полученных вариантов - вполне достаточно. Судите сами:

SET DECIMALS TO 2
&& Таблица для накопления вычисляемых сумм и их слагаемых
CREATE TABLE sumy (sym n (7,2),sostav m(4))
&& Допустимая погрешность. Я задал такую.
m.pogr=0.06
&& Выборка тех NUM, которые не превышают заданного предела
&& и их сортировка для упорядоченного перебора вариантов сложения
SELECT num FROM n WHERE num<3333+m.pogr ORDER BY 1 INTO ARRAY nn
m.sums=0 && Переменная текущей вычисленной суммы
i=1 && Переменная индекса массива
&& Очевидно, что для вычисления МАКСИМАЛЬНО ВОЗМОЖНОГО количества слагаемых
&& необходимо суммировать их, начиная с наименьших (i=1, ведь данные отсортированы)
DO While m.sums<3333+m.pogr
m.sums=m.sums+nn
i=i+1
ENDDO
m.kol_max=i && Максимальное количество слагаемых
&& Перебор значений массива удобнее вести "снизу" - с наибольшего элемента,
&& добавляя к нему значения, начиная с наименьших элементов,
&& тогда "точка встречи" и будет окончанием перебора значений
FOR t=ALEN(nn) TO m.kol_max STEP -1 && Цикл для каждого АНАЛИЗИРУЕМОГО элемента массива
m.sums=nn[t] && При переборе "снизу" - это начальное значение суммы (для каждого очередного элемента массива)
i=1
&& Цикл для определения максимально возможного количества слагаемых
&& для данного элемента массива, чтобы сумма не превышала требуемую
DO WHILE m.sums<3333+m.pogr
m.sums=m.sums+nn
i=i+1
ENDDO
m.kol_iter=i-1 && Вычисленное в цикле значение максимального количества слагаемых
m.sumprom=0 && Вспомогательная переменная для запоминания результатов предыдущих вариантов суммирования
FOR j=1 TO m.kol_iter && Цикл перебора нарастающего количества слагаемых для данного очередного [t] элемента массива m.sumprom=IIF(j=1,nn[t],m.sumprom+nn[j-1]) && Запоминание предыдущей суммы элементов
&& m.strn - переменная для запоминания в символьном виде выражения суммы перебранных элементов
m.strn=IIF(j=1,ALLTRIM(STR(nn[t],7,2)),m.strn+'+'+ALLTRIM(STR(nn[j-1],7,2)))
m.sums=m.sumprom && Начальное значение суммы после добавления очередного слагаемого
i=j && Начальное значение очередного НОВОГО добавляемого элемента-слагаемого (ведь выше - добавляся [j-1]-ый элемент)
&& Цикл перебора сочетания новых "далее расположенных" элементов с предыдущим набором элементов, сумма которых сохранена в m.sumprom
DO WHILE m.sums<3333+m.pogr
m.sums=m.sumprom+nn
IF BETWEEN(m.sums,3333-m.pogr,3333+m.pogr) && Если сумма "попадает" в допустимый диапазон - запись данного варианта сложения в файл sumy.dbf
m.strn=m.strn+'+'+ALLTRIM(STR(nn,7,2))
INSERT INTO sumy (sym,sostav) VALUES (m.sums,m.strn)
ENDIF
i=i+1
ENDDO
&& Досрочное завершение перебора, если сумма уже превышает домустимый предел
IF BETWEEN(m.sums,3333-m.pogr,3333+m.pogr)
LOOP
ENDIF
ENDFOR
ENDFOR
&& Выборка допустимых сумм и их составляющих(memo)
SELECT * from sumy WHERE ABS(EVALUATE(CHRTRAN(ALLTRIM(sostav),',','.'))-3333)<m.pogr ORDER BY sym
К сожалению, в выборку попадают и "зеркальные"(симметричные) наборы слагаемых,
видимо, не совсем верно выбран критерий выхода из цикла или "точка встречи"
для четного количества элементов массива.
Но, думаю, такое дублирование результатов не столь важно в данном случае.