题目
由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大,最小值
要free pascal的,别的不要!
要free pascal的,别的不要!
提问时间:2020-09-16
答案
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.
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1为什么人的心脏长在偏左的位置
- 2在距离地面2m高的某处把一物体以初速度v0(m/s)竖直向上抛物出,在不计空气阻力的情况下,其上升高度s(m)与抛出时间t(s)满足:s=v0t-1/2gt2(其中g是常数,通常取10m/s2).若v
- 3rain的la song读啦song吗
- 4鸡蛋里的卵细胞由什么构成?胚胎算是细胞核吗?
- 5在电阻并联的电路中,电路的端电压U等于各并联电阻的端电压之和.( )判断题,
- 6一根空心钢管长2米,内直径是10厘米,外直径是16厘米,如果每立方厘米的钢材重7.8克,这根钢管重多少千克
- 7My father usually takes the subway to work(对my father提问)
- 8设x>0,y>0 x^2+y^2/2=1,则x乘以根号(1+y^2)的最大值
- 9选择一组关联词围绕环保方面写一个句子
- 10朱自清散文《春》的分段 快
热门考点