Estou com problema no código para fazer a quebra de linha. Preciso criar uma escada que fique como abaixo:
#
##
###
####
#####
Se eu colocar escreval("#") ele quebra a linha, porem o resultado final fica assim:
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
Alguém sabe qual ajuste devo realizar ? com o código atual o resultado está ficando dessa maneira:
Quantidade de degraus: 5
# ## ### #### #####
Algoritmo "escada"
Var
p, x1, x, lin, col, degr: inteiro
Inicio
Escreva ("Quantidade de degraus: ")
Leia (degr)
x:=degr
x1:=1
Para lin de 1 ate degr passo 1 faca
Para col de 1 ate x passo 1 faca
escreva(" ")
Fimpara
x:=x-1
Para p de 1 ate x1 passo 1 faca
escreva("#")
Fimpara
x1:=x1+1
escreva( )
Fimpara
fimalgoritmo
desde já muito obrigado !!