Trabalho

http://www.ensinodeprogramacao.eti.br/index.php?option=com_content&view=article&id=65:exemplo-de-algoritmo-que-soma-dois-numeros-inteiros&catid=8:animacao&Itemid=18
Questão 02
Escolhida por votação
O correto é:

num: vetor [1..99] de inteiro i,qt,x:inteiro soma:inteiro inicio escreval ("Digite a quantidade de numeros") leia (x)

soma <- 0

para i de 1 ate x faca escreval ("Digite o numero") leia (numundefined) se (numundefined <= 0) entao interrompa fimse qt <- 0 para i de 1 ate numundefined faca se (numundefined mod i = 0) entao qt <- qt + 1 fimse fimpara se (qt < 2) entao soma <- soma + 1 fimse fimpara escreva (soma)

Mas ficaria mais simples assim: var numero, soma, i: inteiro ehprimo: logico

leia(numero) enquanto (numero > 0) faca ehprimo <- VERDADEIRO para i de 2 ate numero-1 faca se (numero % i = 0) entao ehprimo <- FALSO fimse fimpara se (ehprimo) entao soma <- soma + 1 fimse leia(numero) fimenquanto escreva (soma) http://www.do.ufgd.edu.br/CristianoSouza/didatico/algoritmos/aula7-estruturaenquanto.pdf http://br.answers.yahoo.com/question/index?qid=20100602120933AAFiVZF <- questão 05 http://br.answers.yahoo.com/question/index?qid=20120429171825AAhSFgV Dados um número inteiro positivo n e uma seqüência de n números inteiros. Faça um algoritmo que ache o menor n?

algoritmo "menor" var n, i, num, menor: inteiro inicio menor <- -1 leia (n) para i de 1 ate n faca leia (num) se (menor = -1 ou menor > num) entao menor <- num fimse fimpara escreval ("Menor: ", menor) fimalgoritmo http://tecnosolution.blogspot.com.br/2011/03/programa-em-pascal-que-soma-dois.html soma de números inteiros

ACHEI : http://www.do.ufgd.edu.br/CristianoSouza/didatico/algoritmos/aula7-estruturaenquanto.pdf

http://forum.clubedohardware.com.br/nao-consigo-terminar/1022473?p=5485144 é mais ou menos isso aki cara!!

EXERCÍCIOS INTERESSANTES