76
правок
Изменения
м
write(nextChoose:=a[1..n]);
write('nextChoose:=null');
→Специализация алгоритма для генерации следующего сочетания
* Пойдём справа налево. Будем искать номер элемента, который отличается от предыдущего на 2.
* Увеличим найденный элемент на 1, и допишем в конец минимально возможный хвост, если такого элемента нет – на вход было дано последнее сочетание.
'''procedurefunction''' nextChoose(var a:array[1..N+1] of integer):choose; // n,k - параметры сочетания.
'''var''' i,j : '''integer;'''
'''begin'''
'''for''' j := i + 1 '''to''' k '''do'''
a[j] := a[j - 1] + 1;
'''end'''
'''else'''
'''end;'''
