jz1091,jz2023【提高】那些n位数

 //jz1091

var n,p:longint;

procedure DFS(depth,s:longint);
var j:longint;
begin
    if depth>n then begin writeln(s); exit; end; 
    for j:=1 to p do DFS(depth+1,s*10+j);
end;

begin
    readln(n,p);
    DFS(1,0);
end.

 

//jz2023

var n,p:longint;
    c:array[1..9] of boolean;

procedure DFS(d,s:longint);
var i:longint;
begin
    if d>n then begin writeln(s);exit;end;
    for i:=1 to p do
        if c[i] then
        begin
            c[i]:=false;
            DFS(d+1,s*10+i);
            c[i]:=true;
        end;
end;

begin
    fillchar(c,sizeof(c),true);
    readln(n,p);
    DFS(1,0);
end.