Algoritmo - Numeros Primos

Var
max, controle, qtdeDiv : inteiro

Inicio
escreval ("Escreva um número: ")
  leia (max)
  para controle <- 1  ate max faca
  se max mod controle = 0 entao
  qtdeDiv <- qtdeDiv + 1
  fimse
  fimpara
  escreva (qtdeDiv," ")
  se qtdeDiv = 2 entao
  escreva("É primo: ",qtdeDiv)
  senao
  escreva ("Não é primo: ", qtdeDiv)
  fimse
Fimalgoritmo

• Tweet
• Facebook
• Mais
• Share
• Share