Necesito dibujar un triángulo indicándole el número de filas y columnas, de manera que quede así:
****
***
**
*
Este serían 4 columnas y 4 filas.
*****
***
*
Este 5 columnas y 3 filas.
No puedo usar ni procedimientos ni funciones.
Mi código es el siguiente:
program triangulo;
var
a,b,c,d:integer;
Begin
writeln('Ingrese filas');
readln(a);
writeln('Ingrese columnas');
for b:=1 to a do
begin
for c:=a downto b do
begin
write('*');
end;
writeln;
end;
End.
El problema es que sólo me hace triángulos con igual número de filas que de columnas y además, me los hace de la siguiente manera:
****
***
**
*
que es distinta a la que me piden.
Alguien me puede echar un cable?
Muchas gracias!
Mostrar Mensajes
