algoritmo "Números pares (com repita)"
var
par: inteiro
inicio
par <- 10
repita
escreval (par)
par <- par - 2

ate par < 2
fimalgoritmo


algoritmo "Repita_inteiro_media"
var
media,cont,soma,n: real
inicio
repita
Escreval ("Escreva um número")
leia (n)
Se n >=4 entao
soma <- (soma+n)
cont <- cont + 1
Fimse
ate n = 0
media <- soma/cont
Escreval (media)
fimalgoritmo


algoritmo "Números 20 (com repita)"
var
res,n,j: inteiro
media: real
inicio
j <- 1
repita
j <- j + 1
escreval ("digite um número")
leia (n)
res <- res + n
ate j > 20
media <- res/20
Escreval (media)
fimalgoritmo

Algoritmos do dia 26/05/2011

algoritmo "Repita_salario"
var
nome: caractere
soma,salario: real
inicio
salario <- 0
repita
escreval ("digite o nome do funcionário")
leia (nome)
escreval ("digite o salário do funcionário")
leia (salario)
soma <- (soma+salario)
escreval (soma)
ate salario < 0
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var
par: inteiro
inicio
par <- 0
repita
escreval (par)
par <- par + 2
ate par > 100
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var
nome: caractere
j: inteiro
n1,n2,n3,res: real
inicio
j <- 1
repita
j <- j + 1
escreval ("digite o nome do aluno")
escreval ("digite a nota do aluno da matéria1")
escreval ("digite a nota do aluno da matéria2")
escreval ("digite a nota do aluno da matéria3")
leia (nome,n1,n2,n3)
res <- (n1+n2+n3)/3
escreval (res)
ate j > 3
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var j: inteiro
inicio
j <- 1
repita
escreva (j:3)
j <- j + 1
ate j > 10
fimalgoritmo