Рекурсия

[<Tyz>]

1.Напечатать все возрастающие последовательности длины k, элементами которых являются натуральные числа от 1 до n. (Предполагается, что k не превосходит n – иначе таких последовательностей не существует.)

[vovk]

ну и что вас останавливает? печатайте.

[Serge_Bliznykov]

<Tyz>
для затравки почитайте здесь - ПЕРЕБОРHЫЕ АЛГОРИТМЫ.


решение взято оттуда:

program SequencesRecursion;
type Sequence = array[byte] of byte;

var N, K: byte;
  X: Sequence;

procedure Generate(h: byte);
var i, j: byte;
begin
  if h = K then
  begin 
     for i := 1 to K do write(X[i]); writeln 
  end
  else
    for j := 1 to N do
      begin 
        X[h + 1] := j;
        Generate(h + 1) 
      end
end;
begin
  write('N,K='); readln(N, K);
  Generate(0)
end.

[<Tyz>]

Спасибо за решение