作业帮一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 07:53:56
一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal
一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal
一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal
var t,n,j,i:longint;
f:boolean;
a:array[0..9] of boolean;
begin
t:=0;
for i:=10000 to 99999 do
begin
f:=true;
fillchar(a,sizeof(a),false);
n:=i;
while n0 do
begin
if a[n mod 10]=true then begin f:=false;break; end;
a[n mod 10]:=true;
n:=n div 10;
end;
if f then begin t:=t+1; writeln(i);end;
end;
writeln(t);
end.
9*9*8*7*6各方案
625
是要全部输出这些数吗？还是只要输种数
var a,b,c,d,e,s:integer;
begin
for a:=1 to 9 do
for b:= 1 to 9 do
if b<>a then
begin
for c:= 1 to 9 do
if (c<>a) and (c<>b) then
begin
...
全部展开
var a,b,c,d,e,s:integer;
begin
for a:=1 to 9 do
for b:= 1 to 9 do
if b<>a then
begin
for c:= 1 to 9 do
if (c<>a) and (c<>b) then
begin
for d:=1 to 9 do
if (d<>a) and (d<>b) and (d<>c) then
begin
for e:= 1 to 9 do
if (e<>a) and (e<>b) and (e<>c) and (e<>d) then s:=s+1;
end;
end;
end;
write(s);
end.
辛苦了一点，不过非常容易懂。
就复制吧！
收起