pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排
来源：学生作业帮助网 编辑：六六作业网 时间：2024/05/14 18:42:52
pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排
pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.
已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排求差”.其结果不足四位时,右边补0,组成大的四位数；左边补0,组成小的四位数.重复这个过程,最多七步,必能得到6174.求某一四位数（每位数字完全相同的除外）经上述“重排求差”步骤均能得到6174的步数.当输入的四位正整数是四位完全重复时,输出“error”字样
例如：输入任一四位数:1234
输出变换的步数：3
Input
输入所要变换的四位数
第一行输入所要变换的四位数的值
Output
输出变换的步数
Sample Input
1234
Sample Output
3
pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
readln(hd);
for i:=1 to 4 do
begin
a[i]:=shiyan mod 10;
shiyan:=shiyan div 10;
end;
write(hd,' needs:');
w:=0;
repeat
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]