题目
由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描写音乐的诗句
- 2They live on the second floor,and we live on the first floor.We live____them.(A).below(B).under
- 328和53的最小公倍数(用短除法)
- 4if visiting an area where there is a risk of malaria,use insect repellent and a mosquito net for sle
- 5英语单词填空
- 6一条72米长的路,原来从一端起,每隔9米有一盏路灯.现在重新安装,要从一端起每隔6米装一盏.为节省施工成本,有些位置的路灯是不需要重新安装的.不需要重新安装的路灯至少有多少
- 7圆锥的母线与底面直径都等于18cm,则圆锥侧面展开图的圆心角是( )度
- 8The first tree is bigger than the second one.同义句
- 9怎样才能写好说明文
- 10朝霞二字请大家帮忙造句
热门考点
- 1“半径相等的两个半圆是等弧“”的逆命题是什么”
- 2the young woman ever (travel) to England
- 3请问:250牛力等于多少吨?
- 4How healthy are
- 5一个长方体的容器,底面积是16平方分米,装的水高6分米,现放入一个体积是24立方分米的铁块.这时的水面高多少?
- 60.15是( )位小数,表示( )分之( )
- 7drwm error翻译成中文什么意思
- 8What is under the bed?It is a pair of trainers.怎么改
- 9What bird can lift the heaviest weigh?
- 10有糖50千克,要制成含糖百分之20的糖水,应该加水多少千克?