Autor
Código:
Número = 5
5
4
3
2
1
5
4
3
2
1
Tengo todo el ejercicio hecho, pero me falta una parte, si hay 5 filas y 5 columnas, ¿cuál sería el número de espacios en función de las filas, que debería poner?
Código
PROGRAM P04_8;
USES CRT;
VAR N, i, j, k, cont: integer;
BEGIN
Write('Introduce un numero positivo impar: ');
Read(N);
FOR i := 1 TO N DO
cont := 0;
FOR j := 1 TO N DO
BEGIN
IF (j MOD 2 <> 0) AND (cont = 0) THEN
BEGIN
IF (i <> 1) THEN
BEGIN
k := ; <------ k = Numero de espacios antes del numero, para la fila actual
REPEAT
BEGIN
Write(' ');
k := k - 1;
END;
UNTIL k = 0;
END;
Write(N - i + 1);
cont := cont + 1;
END;
IF (cont <> 0) THEN Write(' ');
END;
READKEY;
END.
No se si me he explicado bien.
En línea
