作业帮Pascal编程 那些n位数
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 08:08:11
Pascal编程 那些n位数
【试题描述】
一个n位数,只由1,2,3,4...p这几个数字组成.
请编写程序输出这些n位数,先小后大,每行一个.
【输入描述】
两个整数n,p(n＜9,p＜＝9,且p^n
【试题描述】
一个n位数,只由1,2,3,4...p这几个数字组成.
请编写程序输出这些n位数,先小后大,每行一个.
【输入描述】
两个整数n,p(n＜9,p＜＝9,且p^n
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.
保证对,试过了
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.
保证对,试过了