长城哈弗路虎款图片:全由奇数码组成的能被125整除的最小六位数是多少?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 04:19:37

结果:111375

把下面的代码COPY到记事本,保存为*.VBS,双击就可以运行。
ff=false
for a=1 to 9 step 2
if ff=true then exit for
for b= 1 to 9 step 2
if ff=true then exit for
for c=1 to 9 step 2
if ff=true then exit for
for d= 1 to 9 step 2
if ff=true then exit for
for e=1 to 9 step 2
if ff=true then exit for
for f= 1 to 9 step 2
s=a*100000+b*10000+c*1000+d*100+e*10+f
if (s mod 125 =0) then
msgbox s
ff=true
exit for
end if
next
next
next
next
next
next

由于1000能够被125整除,所以只需要3位尾数能被125整除即可,前面三位可直接定为1。

var
i,j,k,n,l:integer;
begin
for l := 1 to 999 div 125
do
begin
n := l*125;
i := n mod 10;
j := (n div 10) mod 10;
k := (n div 100) mod 10;
if ((i mod 2) = 1) and ((j mod 2) = 1) and ((k mod 2) = 1)
then
begin writeln(111000+n); break end;
end;
readln;
end.