Question

Desenvolver
um algoritmo e implementar um programa em VISUALG que conte um a um e escreva
na tela os números múltiplos de 3, de 5 e de 7 no intervalo de 1 a 12379 e ao
final apresente o total de múltiplos de 3, de 5 e de 7.


Desenvolver
um algoritmo e implementar um programa em VISUALG para ler a idade de um
conjunto de alunos do ensino fundamental e apresentar ao final a média das
idades informadas. A condição de parada deverá ser quando informar idade =
0.  Testar para pelo menos 10
alunos...ok!

Answer 1

Ta ai, arruma direitinho no visualg pq vou fazer direto aqui
Algoritmo "multiplo"
var
i :Inteiro
i<-0
para i de 1 até 12379 faça
Se i mod 3 = 0 entao
 escreva i
   senão se i mod 5 = 0 entao
     escreva i
        senão se i mod 7 = 0 entao
          escreva i
                fim se
             fim se
 fim se
fimalalgoritmo
    

2)
Algoritmo idade_aluno
var
idade, auxiliar :inteiro
media: real
auxiliar<-0
idade<-0
media<-0
    enquanto idade >= 0
       Leia Idade
         Se idade < 0 então
           abandone
          fim se
       auxiliar <- auxiliar + idade
       media<-media+1
     fim enquanto
           media<- auxiliar/media
           Escreva media
fimalalgoritmo

Answer 2

// Exercício 1:

algoritmo "multiplos"
var
     i, contador : inteiro

inicio
     contador <- 0

     escreval("======= MULTIPLOS DE 3 ==========")
     para i de 1 ate 12379 faca
          se( i % 3 = 0 ) entao
              escreva("",i)
              contador <- contador + 1
                 se( contador % 10 = 0 ) entao
                    escreval
                 fimse
          fimse
     fimpara

     escreval
     escreval
     contador <- 0
   
     escreval("======= MULTIPLOS DE 5 ==========")
     para i de 1 ate 12379 faca
          se( i % 5 = 0 ) entao
              escreva("", i)
              contador <- contador + 1
                 se( contador % 10 = 0 ) entao
                    escreval
                 fimse
          fimse
     fimpara
 
     escreval
     escreval
     contador <- 0

     escreval("======= MULTIPLOS DE 7 ==========")
     para i de 1 ate 12379 faca
          se( i % 7 = 0 ) entao
              escreva("", i)
              contador <- contador + 1
                 se( contador % 10 = 0 ) entao
                    escreval
                 fimse
          fimse
     fimpara
fimalgoritmo




// Exercício 2:

algoritmo "idades"
var
     idade, somaIdade, n_alunos, i : inteiro
     media : real
inicio
      i <- 1
      somaIdade <- 0
      idade <- 1
      n_alunos <- 0
      enquanto (idade <> 0) faca
         idade <- 0
         escreva("Digite a idade do ",i,"º aluno: ")
         leia(idade)
         somaIdade <- somaIdade + idade
         n_alunos <- n_alunos + 1
         i <- i + 1
      fimenquanto

      media <- somaIdade / n_alunos

      escreva("Média das idades dos alunos: ", media)
fimalgoritmo