NUMEROSPRIMOScomrepetição

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

algoritmo "identificar_se_e_primo"
// Função :
// Autor :
// Data : 27/09/2017
// Seção de Declarações 
var
numero, resto, qtresto, u, i: inteiro
inicio
para u de 1 ate 10 faca
resto<-0
qtresto<-0
escreva ("Digite um número:")
leia (numero)
para i de 1 ate 10 faca
 resto<- numero mod i
 se (resto=0) entao
 qtresto<-qtresto+1
 fimse
 fimpara
 se (qtresto=2) entao
 escreval ("O número ", numero, " é primo")
 senao
 escreval ("O número ", numero, " não é primo")
 fimse
 fimpara
 
fimalgoritmo