Enquanto não arrumar o quarto faca castigo FimEnquanto liberado
C <- 1
Enquanto (C <= 10) faca
Escreval(C)
C <- C + 1
FimEnquanto
repita castigo Ate arrumar o quarto liberado
C <- 1
repita
Escreval(C)
C <- C + 1
Ate (C > 10)
Para variavel ← inicio ate fim [passo salto] faca Bloco FimPara
Para C ← 1 ate 10 passo 1 faca
Escreval(C)
FimPara
algoritmo "contador1a10"
var
C: Inteiro
inicio
Para C <- 1 ate 10 faca
Escreval(C)
FimPara
fimalgoritmo
algoritmo "contador1a10"
var
C: Inteiro
inicio
Para C <- 1 ate 10 passo 2 faca
Escreval(C)
FimPara
algoritmo "contador1a10"
var
C: Inteiro
inicio
Para C <- 10 ate 1 passo -1 faca
Escreval(C)
FimPara
fimalgoritmo
algoritmo "Somador"
var
N: inteiro
C: inteiro
S: inteiro
inicio
C <- 1
S <- 0
Enquanto (C <= 5) faca
Escreval("Digite um valor: ")
Leia(N)
S <- S + N
C <- C + 1
FimEnquanto
Escreval("A soma dos valores e ", S)
fimalgoritmo
algoritmo "Somador"
var
N: inteiro
C: inteiro
S: inteiro
inicio
S <- 0
Para C <- 1 ate 5 faca
Escreval("Digite um valor: ")
Leia(N)
S <- S + N
FimPara
Escreval("A soma dos valores e ", S)
fimalgoritmo
algoritmo "Somador"
var
N: inteiro
S: inteiro
Resp: Caractere
inicio
S <- 0
Repita
Escreva("Digite um valor: ")
Leia(N)
S <- S + N
Escreva("Quer continuar? (S/N)")
Leia(Resp)
Ate (Resp = "N")
Escreval("A soma dos valores e ", S)
fimalgoritmo