Developing.ru

Код: Выделить всё

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,n,k,t,kol,q : longint;
    a,met : array of longint;
    s:string;
    f:boolean;

procedure cut_s;
   var i:longint;
   begin
        i:=length(s)-1;

        while (s[i]<>' ')and(i<>0) do
          dec(i);
        if i=0 then s:=''
               else
                   begin
                       s:=copy(s,1,i);
                   end;
   end;

procedure rec(x:longint);
   var i:longint;
   begin
      if x>k
          then
             begin
                  if t=k
                    then
                        begin
                             writeln(s);
                        end;
                  exit;
             end;

      for i:=1 to n do
        if (met[i]=0) or (f)
           then
               begin
                    inc(t);
                    s:=s+inttostr(a[i])+' ';
                    met[i]:=1;
                    rec(x+1);
                    cut_s;
                    dec(t);
                    met[i]:=0;
               end;
   end;

procedure init;
  begin
       setlength(a,n+1);
       setlength(met,n+1);
       t:=0;
       kol:=0;
       f:=true;
       s:='';
  end;

procedure input;
   begin
        write('quantity for input=');
        readln(n);
        init;
        for i:=1 to n do
           read(a[i]);
        writeln('with reiteration?');
        writeln('   1 <=> Yes');
        writeln('   0 <=> No');
        read(q);
        write('quantity for output=');
        readln(k);
   end;

procedure solve;
   begin
        if (q=0)
          then f:=false;
        rec(1);
   end;

begin
      input;
      solve;
end.