Algoritmos
1)
Algoritmo "semnome"
Var n1, n2, n3: inteiro
Inicio
n2<- 1
Repita
Escreva("Digite número:")
Leia (n1)
n1<-n1*n2+n2
Escreval("Numero:", n2)
até n1<0
Fimalgoritmo
2)
Algoritmo "contagem_regressiva"
Var n1: inteiro
Inicio
n1<-10
Escreval("Início", n1)
Repita
n1 <- n1-1
Escreval("Contagem regressiva:", n1)
até n1=0
Escreval("Fogo!")
Fimalgoritmo
3)
Algoritmo "Tabuada_personalizada"
Var n1, n2: inteiro
Inicio
Escreva("Digite número para a tabuada:")
Leia (n1)
n2<-1
Para n2 de 1 ate 10 faca
escreval("1x", n1, "=", n1*n2)
Fimpara
Fimalgoritmo
4)
Algoritmo "Soma_numeros"
Var n1, contador, contador2, soma, n2: inteiro
Inicio
Repita
Escreva("Digite número:")
Leia(n1)
Escreva("Digite outro número:")
Leia(n1)
Contador<-n1+n1
Escreva("Digite um número negativo para encerrar operação:")
Leia (n2)
Escreva("Soma dos números positivos digitadosnnesta operação:", contador)
até n1<0
Fimalgoritmo