数字黑洞求解
问题描述：
数字黑洞求解
数字黑洞6174：是指一个任意的四位正整数，将数字重新组合成一个最大的数和最小的数相减，最多七步，必得6174，输出掉进黑洞的步数。
是PASCAL哦
答
program lkszhd;vari,a,b,j,p,q:longint;code:integer;s:string;c:char;beginreadln(a);i:=0;while (a6174) or (i=7) dobeginstr(a,s);for j:=1 to 3 dobeginq:=j;for p:=j+1 to 4 doif s[p]>s[q] then q:=p;c:=s[j]...