¿Cómo imprimir la torre de letras? Programación en pascal. Urgente, urgente, urgente................................................ ..... ................................................. .......... ........................................ ......................... ......................... ....

Mira el mío: ¡Ah! donde n se refiere a n letras comenzando desde a; por ejemplo, si n=5, el sistema procesará "A"..' e '

Primero

definir variables

n, I, j, k: entero;

Respuesta: carácter de matriz [1..100, 1..100]

Inicio

p>

readln(n);

Para i: =1 a n hacer

Para j: =1 a 2*n-1 hacer

a[i,j]:= chr(64 I);

Para i:=2*n-1 hasta n 1 hacer

Para j:=1 a 2*n-1 hacer

a[i, j]:= chr(64 2 * n-I);

k:= 2;

Para i :=1 a n hacer inicio

Para j:=k a 2*n-k hacer

a[i,j]:="";

End ;

k:= 0;

Para i:=n 1 a 2*n-1 comienza

Para j:=i-1- k a i-1 hacer

a[i,j]：="";

k：= k 2

Fin

Para i: =1 a 2*n-1 comience

Para j: =1 a 2*n-1

Escriba (a[i, j] ) ;

escribir

Fin;

Fin.

Si ingresa: 5, genere lo que escribió;

Siguiente pregunta:

Defina variables

n, I, j, k: entero;

Respuesta: carácter de matriz [1..100, 1..100]

Inicio

readln(n);

Para i:=1 a 2*n-1 hacer

Para j:=1 a n hacer

a[i,j]:= chr( 64 j);

Para i: =1 a 2*n-1 hacer

Para j: =2*n-1 hasta n 1 hacer

a[i, j]:= chr(64 2 * n-j);

k:= 2;

Para i:=1 a n iniciar

Para j:=k a 2*n-k hacer

a[i,j]:="";

Fin;

k:= 0 ;

Para i:=n 1 a 2*n-1 comienza

Para j:=i-1-k a i-1 haz

a[i, j]: = "";

k: = k 2;

Fin

Para i: = 1 a 2*n- 1 comienza

Para j: =1 a 2*n-1 hacer

Escribir (a[i, j]);

writeln

Fin;

Fin.

Si entrada: 4, salida: lo que escribiste.