algoritmo contdiv

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 12/01/2016
// Seção de Declarações 
var
 c, n, contdiv: inteiro
inicio
 c <- 1
 contdiv <- 0
 escreva ("Digite um numero")
 leia(n)
 repita
 escreva(c)
 se (n % c = 0) entao
 contdiv <- contdiv + 1
 fimse
 c <- c + 1
 ate (c > n)
 escreval("Ao todo existem", contdiv, "valores divisiveis")
fimalgoritmo