Нахождение всех последовательностей 3 чисел сумма которых равна n - Turbo Pascal

Формулировка задачи:

Одним из этапов задачи является нахождение всех последовательностей 3 чисел сумма которых равна n. Первое, что пришло в голову

for i:=1 to n-2 do
for i2:=1 to n-2 do
for i3:=1 to n-2 do
if I+i2+i3=n then ...

Но это глупый перебор Второе, что пришло в голову

for i:=1 to n-2 do
for i2:=1 to n-2 do
if I+i2<n then
begin
i3:=n-I-i2;
...
end;

Суть в том, что надо исключить повторения, то есть 1 2 3 = 1 3 2 = 2 1 3, потому что это равноценные варианты.

Решение задачи: «Нахождение всех последовательностей 3 чисел сумма которых равна n»

textual
                            Листинг программы 
                        

                              for i1 := 1 to n - 2 do
    for i2 := i1 + 1 to n - 1 do
      for i3 := i2 + 1 to n do
        if i1 + i2 + i3 = n then writeln(n, '=', i1, '+', i2, '+', i3);
                        

Оцени полезность:

6 голосов , оценка 4.167 из 5

Похожие ответы