Pascal-数学黑洞6174.求证：所有四位数的数字（全相同的除外）,均能得到6174.输出掉进黑洞的步数1.“数学黑洞6174” 已知：一个任意的四位正整数.将数字重新组合成一个最大的数和最小的数相减,重复这个过程,最多七步,必得6174.即：7641-1467=6174.将永远出不来.求证：所有四位数的数字（全相同的除外）,均能得到6174.输出掉进黑洞的步数.要求：（1） 当相减后第一次出现6174,就可认为掉进黑洞（2） 此题无需输入文件（3） 输出文件中,应列出所有四位数（相同的除外）对应的黑洞步数.用PASCAL!
问题描述：
Pascal-数学黑洞6174.求证：所有四位数的数字（全相同的除外）,均能得到6174.输出掉进黑洞的步数
1.“数学黑洞6174”
已知：一个任意的四位正整数.将数字重新组合成一个最大的数和最小的数相减,重复这个过程,最多七步,必得6174.即：7641-1467=6174.将永远出不来.求证：所有四位数的数字（全相同的除外）,均能得到6174.输出掉进黑洞的步数.
要求：
（1） 当相减后第一次出现6174,就可认为掉进黑洞
（2） 此题无需输入文件
（3） 输出文件中,应列出所有四位数（相同的除外）对应的黑洞步数.
用PASCAL!
答
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-...