Hапечатать все последовательности длины N из чисел 1,2..M First = (1,1,...,1) Last = (M,M,...,M) Всего таких последовательностей будет M^N (докажите!). Чтобы понять. как должна действовать процедура , начнем с примеров. Пусть N=4,M=3. Тогда: (1,1,1,1) -> (1,1,1,2) (1,1,1,3) -> (1,1,2,1) (3,1,3,3) -> (3,2,1,1) Теперь можно написать общую процедуру :

Если такого i найти не удается, то следующей последовательности нет - мы добрались до последней (M,M,...,M). Заметим также, что если бы членами последовательности были числа не от 1 до M, а от 0 до M-1, то переход к следующей означал бы прибавление 1 в M-ичной системе счисления. Полная программа на Паскале выглядит так: Решение через рекурисю. Опишем рекурсивную процедуру Generate(k), предъявляющую все последовательности длины N из чисел 1,...,M, у которых фиксировано начало X[1],X[2],...,X[k]. Понятно, что при k=N мы имеем тривиальное решение: есть только одна такая последовательность - это она сама.При k

    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;

Основная программа теперь выглядит очень просто:

   program SequencesRecursion;
     type Sequence=array [byte] of byte;
     var M,N:byte;
      X:Sequence;
     procedure Generate(k:byte);
      ............
    begin
     write('M,N=');readln(M,N);
     Generate(0)    
end.

http://algolist.manual.ru