Cifrado y descifrado de números

var a:matriz[0...9]de byte=(0,1,2,3,4,5,6,7,8,9); {definir número original}

b: matriz[0...9]de byte=(7,5,9,1,3,6,8,0,2,4);{definir número de texto cifrado}

c:matriz[1 .100]de byte;{número a procesar}

n,m,i,j:longint;

comenzar

lectura(n,m) ;

para i:=1 a m do

read(c[i]);{leer el número a procesar}

si n=1 entonces {encrypt}

for i：=1 to m do

write(b[c[i]]);{ El número original es 0,1,2,3,4 , 5,6,7,8,9 así que no es necesario buscar}

si n=2 entonces{decrypt}

para i：=1 to m do

para j:=0 a 9 haz{Encontrar el número original}

si c[i]=b[j] entonces

escribe(a[j],' ');

end.

¡Ingrese puramente manualmente!

¡Prueba de Pascal gratuita superada!

Ejecute "d:\?α╠╣?╩╦╞?\fpc\bin\i386-win32\ys.exe 123"

1 6

1 9 9 7 7 1

Ejecute "d:\?α│╠╩╩?╩╦╞?\fpc\bin\i386-win32\ys.exe 123"

2 6

1 9 9 7 7 1

3 2 2 0 0 3

¡Buscamos dueño para adoptar! ¡Gracias!