AULA 18

corigimos os exercicios do trabalho da aula passada e o professor ja passou esse para particar 

1- Faça um programa que receba dez números inteiros e mostre a quantidade de números primos dentre os números que foram digitados.

algoritmo "exec_01_aula16"
var
   primos,num,prim,x,z:inteiro
inicio
   primos<-0
   para x de 1 ate 10 faca
      escreva("Digite um número: ")
      leia(num)
      prim<-0
      para z de 1 ate num faca
         se (num mod z=0) entao
            prim<-prim+1
         fimse
      fimpara
      se (prim<=2) entao
         primos<-primos+1
      fimse
   fimpara
   escreva("Nos números digitados",primos," eram primos...")
fimalgoritmo


com esse e os outro exercicios to pegando a pratica e to gostando de faser esses programas.