Programación de agujeros negros

programa asdf;

Definir variables

Respuesta: Matriz [1000..9998 de entero];

Entero de matriz [1..24];

I, j, k, l, w, x, y, z, w1, x1, y1, z1, xx, yy, ii: entero

Inicio;

Para i:=1000 a 9998 haga

Iniciar

ii:= I;

w:= ii div 1000;

x:= ii div 100-w * 10;

y:= ii div 10-w * 100-x * 10;

z:= ii mod 10;

Si no ((w=x) y (x=y) y (y=z)), entonces comience

YY:= 1 ;

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

Iniciar

si (w 1+x 1+y 1+z 1 = 1+2+3 +4) y (w 1 * x 1 * y 1 * z 1 = 1 * 2 * 3 * 4) luego comience

Para k:=1 a 4 inicio

xx := 1;

Caso k

1:para l:=1 a w 1 comience xx:= xx * 10; [YY]:= b[YY]+ w 1; Fin

2: Para l:=1 a x1 comienza xx:= xx * 10; +x 1; Fin;

3: Para l:=1 a y 1 comience xx:= xx * 10; b[YY]:= b[YY]+y 1; p>

4: Para l: =1 a z 1 comience xx:= xx * 10; b[YY]:= b[YY]+z 1; Inc(YY); p>Fin;

Fin;

Para k:=1 a 24 hacer

Para l:=1 to k haz

Si b[k]>b[l] entonces comienza b[k]:= b[l]+b[k]; ]:= b[k]-b[l]; b[k]:= b[k]-b[l]; l]);

Si ii=6174, entonces comienza a[I]:= j; finaliza

; p>

Fin;

Fin p>

Para i:=1000 a 9998 haga

writeln(i,':',a[I]);

readln

Ideas Relativamente simples. Mírelo y comprenderá que programar debería ser fácil.