Numero Primo

Descrição

Esconder código-fonte

algoritmo "Número primo"
// Função : saber se um número é primo ou não
// Autor : Guilherme de Araújo Silva
// Data : 27/4/2011
// Seção de Declarações 
var
num,controle,primo,fim:inteiro
inicio
      escreva("Entre com um numero: ")
      repita
            leia(num)
      ate (num>=0)
      repita
            controle <- 1 + controle
            primo <- num mod controle
            se(primo=0) entao
                  fim <- 1 + fim
                  se (fim>2) entao
                     controle <- num + 1
                      escreva(num," não é primo")
                  fimse
            fimse
      ate (controle>num)
      se(fim=2) entao
            escreva(num," é primo")
      fimse
fimalgoritmo