Паскаль рекурсия: Требуется составить данное число суммами данных чисел.

[Poma][a]

Но! А если нам даны числа 1 2 2 3 (т.е. ДВЕ двойки даны в исходных числах), почему мы не имеем права вывести 2+2 ?

Мы имеем полное право вывести 2+2.

Вот, кажется, проблема решена..

type
        TSol = array [1..100] of Integer;

var
        n, m : Integer;
        a : array [1..100] of Integer;
procedure Solution (cnt, sum : Integer; b : TSol);
var
        i : Integer;
begin
        if sum = n then  begin
                for i := 1 to cnt do
                        if b[i] <> 0 then
                                Write (b[i], '+');
                WriteLn(#8, ' = ', n)
        end;


        if cnt > m then
                Exit;

        for i := cnt+1 to m do begin
                b[i] := a[i];
                Solution (i, sum + a[i], b);
                b[i] := 0
        end;

end;

var
        b : TSol;
        i : Integer;

begin
        ReadLn (n, m);

        for i := 1 to m do
                Read (a[i]);

        for i := 1 to m do begin
                b[i] := a[i];
                Solution (i, a[i], b);
                b[i] := 0
        end
end.

Кстати, если набраться наглости и сказать что a[i] >= 0, то перебор можно значительно сократить...

P.S. Сергей, а можно Вас попросить объединить эти два поста? По привычке не то жамкнул..

угу. уже объединил...

[MagAragorn]

Poma, немного не так.
если ввод
3 3
1 1 1
то вывод 6.
так как единицы-независимые.
Можно представить в виде полоски из клеточек. вводится длина. вводится длина Синей,Красной и Зеленой. Требуется заполнить полоску,не складывая подряд одноцветные отрезки.

[Poma][a]

тыц Или я чего то не понимаю?

то вывод 6.

Именно такой вывод и есть в моем решении.
(Только ideone мою хитрость с delet'ом игнорирует..)

[MagAragorn]

Извините, но с таким вводом выводит 1+1+1=3. Я поменял вывод на плюсование счетчика. Все-равно один выводит.

[Poma][a]

Извините, но с таким вводом выводит 1+1+1=3.

Тогда я вообще ничего не понимаю.. Что мы должны выводить при исходных данных :

3 3
1 1 1

[MagAragorn]

6
Меняем единицы на цвета
К С З
варианты:
К С З
К З С
С К З
С З К
З К С
З С К

[Poma][a]

А что означает 6 в начале Вашего поста?

[Serge_Bliznykov]

Сообщение от Poma][a

А что означает 6 в начале Вашего поста?

рискну предположить, что 6 - это количество вариантов.

Только я окончательно запутался - как то вдруг задача превратилась в задачу с цветами разного цвета

тогда, программа (которая с числами)
для M=3 N=3
и набора чисел 1 1 1
должна выдать 6 вариантов:
1 + 1 + 1 = 3
1 + 1 + 1 = 3
1 + 1 + 1 = 3
1 + 1 + 1 = 3
1 + 1 + 1 = 3
1 + 1 + 1 = 3

[Poma][a]

Хм.. дак это и есть мой ответ..
Ааа.. Мне кажется, я понял, что же хочет партизан-ТС..
В добавок к разложению нужно еще выводить кол-во вариантов? Дак введите (не будем мудрить) глобальную переменную count. И при выполнении условия sum = n , будем инкриментировать этот сщетчик

[MagAragorn]

Да)
Тоесть программа звучит так:
Заполнить полоску из N клеток полосками 3 разных цветов заданной длины, но не ставя полоски одного цвета друг за другом.