Algoritimo questoes resolvidas

algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2012
// Seção de Declarações var i : inteiro inicio // Seção de Comandos
//b)
para i de 0 ate 100 passo 2 faca escreva(i) fimpara escreval("")
//e)
para i de 99 ate 1 passo -1 faca escreva(i) fimpara escreval("") para i de 1 ate 50 passo 3 faca escreva(i, i+2) fimpara fimalgoritmo algoritmo "semnome"
// Função :
// Autor :
// Data : 29/11/2012
// Seção de Declarações var nome, sexo, nomeVelho: caracter idade, cidade, qtdMulheresOutra, qtdHomensMaior18, idadeVelho, qtdEntrevistado:inteiro inicio // Seção de Comandos repita escreval("Informe idade") leia(idade) se (idade >= 0) entao qtdEntrevistado <- qtdEntrevistado + 1 escreval("Informe nome") leia(nome) escreval("Informe sexo (M/F)") repita leia(sexo) ate((sexo = "M") ou (sexo = "F")) escreval("Informe a cidade") escreval("1 - Cruz das Almas") escreval("2 - Outra cidade") leia(cidade) se((sexo = "F") e (cidade = 2)) entao qtdMulheresOutra <- qtdMulheresOutra + 1 fimse se((sexo = "M") e (idade >= 18)) entao qtdHomensMaior18 <- qtdHomensMaior18 + 1 fimse se(qtdEntrevistado = 1) entao idadeVelho <- idade nomeVelho <- nome idadeNovo <- idade nomeNovo <- nome senao se(idade > idadeVelho) entao idadeVelho <- idade nomeVelho <- nome fimse se(idade < idadeNovo) entao idadeNovo <- idade nomeNovo <- nome fimse fimse fimse ate(idade < 0) escreval("A qtd de mulheres de outra cidade é ", qtdMulheresOutra) escreval("A qtd de homens maior de idade é ", qtdHomensMaior18) escreval("O entrevistado mais velho é ", nomeVelho, " e tem " , idadeVelho, " anos.") escreval("O entrevistado mais novo é ", nomeNovo, "