作业帮数学黑洞6174讲解
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 16:21:29
数学黑洞6174讲解
数学黑洞6174讲解
数学黑洞6174讲解
program p1;
var
a:array[1..4] of integer;{读入一个数组,如4 5 6 7}
i,j,x,y:integer;
begin
for i:=1 to 4 do
readln(a[i]);
y:=0;
while (a[1]<>6)and(a[2]<>1)and(a[3]<>7)and(a[4]<>4) do
begin
for i:=1 to 3 do
begin
if a[i]
end;
x:=(1000*a[1]+100*a[2]+10*a[3]+a[4])-(1000*a[4]+100*a[3]+10*a[2]+a[1]);
while x<>0 do
begin
for i:=1 to 4 do
a[i]:=x mod 10;
x:=x div 10;
end;
y:=y+1;
end;
writeln(y)
end.