Ejercicio 29

 Plantee e implemente un programa en PASCAL para obtener elementos del
triángulo de Floyd hasta un número dado.


PROGRAM floyd(input,output);
(*Programa que haga el triangulo de floyd hasta un numero determinado*)

VAR
n:integer;
I:integer;
        fila:integer;
        numero:integer;

BEGIN
writeln('Escriba el numero hasta el que tiene que llegar el triangulo de Floyd');
read(numero);
        I:=1;
        fila:=1;
        n:=1;
WHILE n<=numero DO
       BEGIN
                WHILE ((n<=numero)AND(I<=fila)) DO
                        BEGIN
                        write(n:3);
                        n:=n+1;
                        I:=I+1;
                        END;
                I:=1;
                fila:=fila+1;
                writeln
                END;
END.

Ejemplo de ejecución