1樓：匿名使用者
var t,n,j,i:longint;
f:boolean;
a:array[0..9] of boolean;
begin
t:=0;
for i:=10000 to 99999 dobegin
f:=true;
fillchar(a,sizeof(a),false);
n:=i;
while n<>0 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.
2樓：匿名使用者
9*9*8*7*6各方案
3樓：匿名使用者
是要全部輸出這些數嗎？還是只要輸種數
4樓：太陽精靈
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) thenbegin
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.
辛苦了一點，不過非常容易懂。
就複製吧！
六位數的各位數字都不相同,最左一位數字是3,且它能被
因為以30124開頭才能保證盡可能小,剩餘一位數需從5 6 7 8 9中找,所以六位數有301245 301246 301247 301248 301249,又保 回證六位數能答被11整除,通過驗證只有301246能被11整除.故答案為 301246.乙個六位數的各位數字都不相同,最左一位是3,且它...
從0到9這數中選出不同的數字組成五位數，其中大於
用字典法解決先算出一共能組成的五 位數字是a 上5下10 a 上4下9 27216 所有排列 零排首位 然後算比13500少的數字有多少萬位，沒有比1小的數字了，所以比13500小的數萬位必定是1 千位，若千位比3小，則這個數字比13500小。比3小的情況有3種，0,1，2 1已經被萬位用掉 這樣的...
有由不同數字組成的五位數,能被3和11整除,最小是多少
最小的5位數，那麼前3位為102，能被3整除，剩餘2位數字和 1 2能被3整除，也就是剩餘2位數字和是3倍數，能被11整除，也就是奇數字數字和與偶數字數字和差為11的倍數，所以十位數比個位數大3或十位數比個位數小8，所以滿足條件最小5位數是10263。解 可有兩種思路 1 從所有五位數中最小的100...