作业帮 > 综合 > 作业

pasca编程验证卡布列克运算

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/04 03:27:46
pasca编程验证卡布列克运算
验证卡布列克运算,对给定的四位数的各位数字重新排序,构成一个最大数和最小数,将两者的差做同样处理,如此重复,最终必将是6174.(用一维数组和选择排序做)
eadln(x);
repeat
a[1]=x mod 10*1000+x mod 100 div 10*100+x mod 1000 div 100*10+x div 1000;
a[2]=x mod 10*1000+x mod 100 div 10*100+x mod 1000 div 100+x div 1000*10;
.
接着就选择排序,y:=a[1]-a[24]
if x=y then begin writeln(x);exit;end//肯定是6174.
else x=y;
until 1+12;