432个.
请看FreePascal程序:
var
n,i,j,t,p:longint;
a:array[1..10] of longint;
b:array[1..10] of boolean;
procedure try(x:longint);
var
i:longint;
begin
if (x=n) and (p mod 11=0) then inc(t);
for i:=1 to n do
if not b[i] then
begin
b[i]:=true;
p:=p*10+a[i];
try(x+1);
p:=p div 10;
b[i]:=false;
end;
end;
begin
readln(n);
t:=0; p:=0;
for i:=1 to n do
begin
read(a[i]);
b[i]:=false;
end;
try(0);
writeln(t);
end.
你可以找懂编程的看看.
用2-8可以组成多少个没有重复数字,且能被11整除的七位数?
用2-8可以组成多少个没有重复数字,且能被11整除的七位数?
其他人气:767 ℃时间:2019-08-18 23:53:32
优质解答
我来回答
类似推荐
猜你喜欢
- 1用生日快乐开头的成语,并要求竖排也是成语
- 2二次函数y=ax2+bx+c的图象如图所示,且P=|a-b+c|+|2a+b|,Q=|a+b+c|+|2a-b|,则P、Q的大小关系为P_Q.
- 3已知函数f(x)=(1+cotx)sin^2(x)-2sin(x+π/4)sin(x-π/4)
- 4盛满等体积NO和NO2的混合气体的试管,倒置在水槽中,反应完毕后,液面上升的高度是试管的( ) A.12 B.13 C.23 D.56
- 55时15分等于几分之几分?
- 6他下周想去中国 英语翻译He is _____ _____ to China next week
- 7I must study hard.怎么改写为反问句,疑问句,否定句,肯定句?
- 8请用唯物论的有关知识,说明我国为什么要大力发展低碳经济
- 9i can ride a bike怎么变成特殊疑问句
- 10已知2的a次方*27的b次方*37的c次方=1998,其中a,b,c为正整数,求(a-b+c)的2005次方的值谢谢了,