Aula 18 – 15.06.2011 Logica e Algoritmos
Nessa aula foi feita a correção do trabalho anterior
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 "aula16_01"
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
Nenhum comentário:
Postar um comentário