Algoritmo: exercícios 3

3. Ler 30 números e exibir a soma dos números que são divisíveis por 5.

Para esta tarefa, deve-se lembrar de uma regra básica da matemática que diz que um número é divisivel por 5, quando ele termina em 0 ou em 5. Fica tudo no MOD 5=0. Demorei até construir o algoritmo que funcionasse, mas, eis aqui como ficou o meu.

algoritmo "Ler 30 números e exibir a soma dos números que são divisíveis por 5. "

// Função : Repetião e variaveis
// Autor :  Adao Braga
// Data : 10/05/2011
// Seção de Declarações
var
numero,soma,n:inteiro

inicio

soma<-0

para n de 1 ate 30 faca
     escreva("Numero: ")
      leia(numero)

      se ((numero mod 5)=0) entao
          escreval("Multiplo de 5")
          soma<-numero+soma
      senao
          escreval("Não é multiplo de 5")
     fimse
fimpara

escreva(soma)

// Seção de Comandos
fimalgoritmo