谁能证明神秘数字6174?
问题描述：
谁能证明神秘数字6174?
任意输入一个4位数,先把各个位的数从小到大排列,再从大到小排列,用大的减去小的,依次重复,直到不变为止.如2357,为7532-2357=5175,7551-1557=5994,9954-4599=5355,5553-3555=1998,9981-1899=8082,8820-288=8532,8532-2358=6174.任意的都一样.
答
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;...