Запись каждого найденного сложения трех или более элементов

@Кирилл1000 · Регистрация: 05.05.2015

Author24 — интернет-сервис помощи студентам

Добрый вечер. Столкнулся с такой проблемой: даны три переменные или более. Стоит ограничение ,допустим, 40.
Найти все различные способы сложения этих чисел(переменных).
Например:
a:=10;
b:=5;
c:=15;
max:=40;

1 способ - a+a+a+a;
2 способ - a+b+b+c+b;
и вывести эти способы..

И так далее.. Или же использовать одномерный массив. Думал делать через рекурсию, но не помню толком её. Прошу помощи, друзья.
P.S. С прошедшим Вас)

Добавлено через 11 часов 54 минуты

Pascal

uses
  System.SysUtils;
    type Razb=array [byte] of byte;
    var N,i,L:byte;
    X:Razb;
    procedure Next(var X:Razb;var L:byte);
      var i,j:byte;
      s:word;
    begin
      i:=L-1;s:=X[L];
      {поиск i}
      while (i>1)and(X[i-1]<=X[i]) do begin s:=s+X[i];dec(i) end;
      inc(X[i]);
      L:=i+s-1;
      for j:=i+1 to L do X[j]:=1
    end;
  begin
    write('N=');readln(N);
    L:=N; for i:=1 to L do X[i]:=1;
    for i:=1 to L do write(X[i]);writeln;
    repeat
      Next(X,L);
      for i:=1 to L do write(X[i]);writeln
    until L=1
  end.

Вот что у меня получилось, но нужно чуть переделать. Чтобы оно искало сумму из тех чисел, которые введу я, а не все возможные варианты.
Пример:
N = 100
a=15
b=10
c=5

Добавлено через 23 часа 53 минуты

Pascal

uses
  System.SysUtils;
 
type Sequence=array [byte] of byte;
      var M,N:byte;
          X:Sequence;
      procedure Generate(k:byte);
var i,j:byte;
      begin
        if k=N then
          begin for i:=1 to N do
        write(X[i]);
        writeln
        end
        else
          for j:=1 to M do
        begin
    X[k+1]:=j;
    Generate(k+1) end
    end;
    begin
      write('M,N=');readln(M,N);
 
      Generate(0);
    readln;
        end.

Или эту программу как можно переделать? Всё что ни пробовал, не выходит. Помогите, а)

	16.09.2015, 08:09