用123456789组成无重复数字的九位数其中恰有两个偶数夹在两个奇数中间,并且3,7,9不相邻,这样的九位数有几个?

Question

用123456789组成无重复数字的九位数
其中恰有两个偶数夹在两个奇数中间,并且3,7,9不相邻,这样的九位数有几个?

Answer 1

循环第一个数n,从123到329（因为最大到329,再大3*n就不是三位数了）,然后算出2*n 3*n,看看这三个数是不是正好把1~9用了.
程序：
var
i,a,b,j,ans:longint;
ok:boolean;
f:array[0..9]of boolean;
begin
for i:=123 to 329 do
begin
a:=2*i; b:=3*i;
fillchar(f,sizeof(f),false);//数组清零
f[i div 100]:=true; f[(i mod 100)div 10]:=true; f[i mod 10]:=true;
f[a div 100]:=true; f[(a mod 100)div 10]:=true; f[a mod 10]:=true;
f[b div 100]:=true; f[(b mod 100)div 10]:=true; f[b mod 10]:=true;
ok:=true;
for j:=1 to 9 do if not f[j] then ok:=false;
if ok then inc(ans);//ans是答案总数,要是输出答案,就在这里每次把符合的i a b三个数输出就行
end;
writeln(ans);
end.