Jia Xijin, ¡utiliza el programa matlab para verificar el agujero negro matemático 6174! ! !
programa asdf;
var
a: matriz[1000..9998] de entero;
b: matriz[1. .24] de entero;
i, j, k, l, w, x, y, z, w1, x1, y1, z1, xx, yy, ii: Entero
<; p>comenzarpara i:=1000 a 9998 hacer
comenzar
ii:=i;
w:=ii div 1000;
x: =ii div 100-w*10
y: =ii div 10-w*100-x*10; :=ii mod 10;
si no ((w=x)y(x=y)y (y=z)) entonces comience
yy:=1; p> p>
para j:=1 a 7 hacer
para w1:=1 a 4 hacer
para x1:=1 a 4 hacer
para y1:=1 a 4 hacer
para z1:=1 a 4 hacer
comenzar
si (w1 x1 y1 z1=1 2 3 4) y(w1*x1*y1*z1=1*2*3*4) luego comience
para k:=1 a 4 comience
xx:=1;
p>caso k de
1: para l:=1 a w1 comience xx:=xx*10; b[yy]:=b[yy] w1; ;
2: para l:=1 a x1 comience xx:=xx*10; b[yy]:=b[yy] x1;
3: para l:=1 a y1 comienza xx:=xx*10; b[yy]:=b[yy] y1;
4: para l:=1 a z1 comienza xx:= xx*10; b[yy]:=b[yy] z1; inc(yy fin);
end;
para k: =1 a 24 hacer
para l: =1 a k hacer
si b[k ]gt; b [l] luego comienza b[k]:=b[l] b[k]; b[l]:=b[k]-b[l]; -b[l ]; fin;
ii:=abs(b[k]-b[l]);
si ii=6174 entonces comienza a[i]:= j; romper; terminar;
>
fin;
fin;
fin;
para i:=1000 a 9998 hacer
writeln(i, ':', a[i]);
readln;
end.