Números primos e repetir enquanto

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

algoritmo "primos"
// Função : primos
// Autor : Afonso
// Data : 14/11/2015
// Seção de Declarações 
var
 i,num,cont,resto:inteiro
 saida:caracter
 tecla:logico
inicio
// Seção de Comandos
 
 repita
 resto<-0
 cont<-0
 escreva("Digite um numero: ")
 leia(num)
 
 para i de 1 ate num faca
 
 resto<- num mod i
 se (resto=0) entao
 cont<-cont+1
 fimse
 fimpara
 
 se (cont=2) entao
 escreval("O numero ",num," e primo")
 escreval("")
 senao
 escreval("O numero ",num," nao e primo")
 escreval("")
 fimse
 
 escreval("deseja continuar, sem sim digite S, senao digite N")
 leia(saida)
 
 se saida = "s" entao
 tecla <-verdadeiro
 limpatela
 senao
 tecla <-falso
 fimse
 
 ate tecla = falso
 fimrepita
 
fimalgoritmo