Pascal-数学黑洞6174.求证:所有四位数的数字(全相同的除外),均能得到6174.输出掉进黑洞的步数

问题描述:

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 dobegin ii:=i; w:=ii div 1000; x:=ii div 100-...