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

para 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>

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;

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.