pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 22:48:53
![pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排](/uploads/image/z/6942546-18-6.jpg?t=pascal+%E6%95%B0%E5%AD%97%E9%BB%91%E6%B4%9E6174+%E5%B0%BD%E9%87%8F%E4%B8%80%E6%AC%A1%E5%81%9A%E5%AF%B9%E5%A5%BD%E5%90%97%3F%E7%BB%8F%E5%8F%97%E4%B8%8D%E8%B5%B7%E7%B3%BB%E7%BB%9F%E4%B8%80%E7%9B%B4%E6%98%BE%E7%A4%BA%E9%94%99%E8%AF%AF%E7%9A%84%E6%8A%98%E7%A3%A8.%E5%B7%B2%E7%9F%A5%E4%B8%80%E4%B8%AA%E4%BB%BB%E6%84%8F%E7%9A%84%E4%B8%8D%E5%AE%8C%E5%85%A8%E9%87%8D%E5%A4%8D%E7%9A%84%E5%9B%9B%E4%BD%8D%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E5%B0%86%E5%85%B6%E6%95%B0%E5%AD%97%E9%87%8D%E6%96%B0%E7%BB%84%E5%90%88%E6%88%90%E4%B8%80%E4%B8%AA%E6%9C%80%E5%A4%A7%E7%9A%84%E6%95%B0%E5%92%8C%E4%B8%80%E4%B8%AA%E6%9C%80%E5%B0%8F%E7%9A%84%E6%95%B0%E5%B9%B6%E4%BD%BF%E4%B9%8B%E7%9B%B8%E5%87%8F%2C%E8%BF%99%E7%A7%B0%E4%B8%BA%E2%80%9C%E9%87%8D%E6%8E%92)
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]