由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大,最小值
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/31 01:17:00
由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大,最小值
要free pascal的,别的不要!
要free pascal的,别的不要!
Min:123475869
Max:987652413
Code:
var a:array[1..9] of longint;
v:array[1..9] of boolean;
i:longint;
min,max:longint;
procedure tryit(x:longint);
var i:longint;
sum:longint;
begin
if x>=10 then begin
sum:=a[1]*100000000+a[2]*10000000+a[3]*1000000+a[4]*100000+a[5]*10000
+a[6]*1000+a[7]*100+a[8]*10+a[9];
if sum mod 11 = 0 then begin
if min = 0 then min:=sum else max:=sum;
end;
exit;
end;
for i:=1 to 9 do if v[i] then begin
v[i]:=false;
a[x]:=i;
tryit(x+1);
v[i]:=true;
end;
end;
begin
for i:=1 to 9 do v[i]:=true;
min:=0;
max:=0;
tryit(1);
if max = 0 then max:=min;
writeln('Min:',min);
writeln('Max:',max);
end.
Max:987652413
Code:
var a:array[1..9] of longint;
v:array[1..9] of boolean;
i:longint;
min,max:longint;
procedure tryit(x:longint);
var i:longint;
sum:longint;
begin
if x>=10 then begin
sum:=a[1]*100000000+a[2]*10000000+a[3]*1000000+a[4]*100000+a[5]*10000
+a[6]*1000+a[7]*100+a[8]*10+a[9];
if sum mod 11 = 0 then begin
if min = 0 then min:=sum else max:=sum;
end;
exit;
end;
for i:=1 to 9 do if v[i] then begin
v[i]:=false;
a[x]:=i;
tryit(x+1);
v[i]:=true;
end;
end;
begin
for i:=1 to 9 do v[i]:=true;
min:=0;
max:=0;
tryit(1);
if max = 0 then max:=min;
writeln('Min:',min);
writeln('Max:',max);
end.
由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大、最小值 C++
请用1---------9九个数码组成的能被11整除,没有重复数字的最大九位数是____.
由0.1.2.3.4.5.这六个数字1.能组成多少个无重复数字且能被25整除的4位数2.能组成无重复数字的四位数中比
由1到9九个数字组成的任何一个九位数,一定能被3整除
从1到9选出4个数字,可组成24个无重复数字的四位数,最大能被4整除,第2,大能被5整除,第4大能被11整除,求24个数
从1至9这九个数字中选出七个数字组成能被12整除的最大的七位数是______,能被12整除的最小的七位数是______.
用1,2,3,4,5,6,7,8,9这九个数字组成一个九位数,要使组成的数能被495整除,这个数最大是多少?
由0-9这10个数字可以组成多少个没有重复数字且能被5整除的四位数
求无重复数字的六位数中,能被3整除的数的个数.
从0、1、2、3、4五个数字中选出四个数字组成能被11整除的无重复数字的四位数,求这样的四位数共有多少个?
有1到7组成没有重复数字且能被11整除的七位数最大是几?
由数字123456,可组成几个没有重复数字且能被3整除的4位数?