Question

Pascal编程 那些n位数

【试题描述】

一个n位数，只由1，2，3，4...p这几个数字组成。
请编写程序输出这些n位数，先小后大，每行一个。

【输入描述】

两个整数n，p(n＜9，p＜＝9，且p^n<=32768)

【输出描述】

若干行数

【输入样例】

4 6

【输出样例】

......
6352
6353
.....

如果您的答案通过，追加20！
我要实实在在的代码，不要提示！

Answer 1

var n,p,s:longint;
f:array[1..100] of boolean;
procedure print;
begin
writeln(s);
end;
procedure try(dep,he:longint);
var i:longint;
begin
if dep>n then begin s:=he;print; end
else begin
for i:=1 to p do
begin
try(dep+1,he*10+i);
end;
end;
end;
begin
readln(n,p);
try(1,0);
end.
保证对，试过了

Answer 2

排列问题，很简单
program long;
type stype=set of 1..100;
var
n,r:longint;
s:stype;
a:array[1..10000] of longint;
procedure print;
var
i:longint;
begin
for i:=1 to r do
write(a[i]);
writeln;
end;
procedure se(k:longint);
var i:longint;
begin
if k>r then begin print; exit; end;
for i:=1 to n do
if i in s then begin
a[k]:=i;
s:=s-[i];
se(k+1);
s:=s+[i];
end;
end;
begin
readln(r,n);
s:=[1..n];
se(1);
end.