首页
注册 | 登录

Pascal-数学黑洞6174.求证:所有四位数的数字(全相同的除外),均能得到6174.输出掉进黑洞的步数1. 数学黑洞6174 已知:一个任意的四位正整数.将数字重新组合成一个最大的数和最小的数

Pascal-数学黑洞6174.求证:所有四位数的数字(全相同的除外),均能得到6174.输出掉进黑洞的步数
1.“数学黑洞6174”
已知:一个任意的四位正整数.将数字重新组合成一个最大的数和最小的数相减,重复这个过程,最多七步,必得6174.即:7641-1467=6174.将永远出不来.求证:所有四位数的数字(全相同的除外),均能得到6174.输出掉进黑洞的步数.
要求:
(1) 当相减后第一次出现6174,就可认为掉进黑洞
(2) 此题无需输入文件
(3) 输出文件中,应列出所有四位数(相同的除外)对应的黑洞步数.
用PASCAL!
2016-12-01 共 2 个回复
最佳回复
program asdf;
var
a:array[1000..9998] of integer;
b:array[1..24] of integer;
i,j,k,l,w,x,y,z,w1,x1,y1,z1,xx,yy,ii:Integer;
begin
for i:=1000 to 9998 do
begin
ii:=i;
w:=ii div 1000;
x:=ii div 100-w*10;
y:=ii div 10-w*100-x*10;
z:=ii mod 10;
if not((w=x)and(x=y)and (y=z)) then begin
yy:=1;
for j:=1 to 7 do
for w1:=1 to 4 do
for x1:=1 to 4 do
for y1:=1 to 4 do
for z1:=1 to 4 do
begin
if (w1+x1+y1+z1=1+2+3+4)and(w1*x1*y1*z1=1*2*3*4) then begin
for k:=1 to 4 do begin
xx:=1;
case k of
1:for l:=1 to w1 do begin xx:=xx*10; b[yy]:=b[yy]+w1; end;
2:for l:=1 to x1 do begin xx:=xx*10; b[yy]:=b[yy]+x1; end;
3:for l:=1 to y1 do begin xx:=xx*10; b[yy]:=b[yy]+y1; end;
4:for l:=1 to z1 do begin xx:=xx*10; b[yy]:=b[yy]+z1; inc(yy); end;
end;
end;
end;
end;
for k:=1 to 24 do
for l:=1 to k do
if b[k]>b[l] then begin b[k]:=b[l]+b[k]; b[l]:=b[k]-b[l]; b[k]:=b[k]-b[l]; end;
ii:=abs(b[k]-b[l]);
if ii=6174 then begin a[i]:=j; break; end;
end;
end;
end;
for i:=1000 to 9998 do
writeln(i,':',a[i]);
readln;
end.


2019 及时作业本 webmaster#jeepfushi.net
10 q. 0.010 s.
湘ICP备19005923号