Algoritmo

1. algoritmo "Restos"

// Função :

// Autor :Paloma Longo

// Data : 19/09/2014

// Seção de Declarações

var

i,x:inteiro

inicio

para i de 1000 ate 2000 passo 1 faca

se (i mod 11) = 5 entao

escreval(i)

x<-x+1

fimse

fimpara

escreval("Foram encontrados ",x," com o resto 5.")

fimalgoritmo

algoritmo "Meses"

// Função :

// Autor :Paloma Longo

// Data : 19/09/2014

// Seção de Declarações

var

OP:INTEIRO

inicio

escreval ("Digite o número do mês")

leia (op)

escolha (OP)

caso 1

escreval ("Janeiro - 31 dias")

caso 2

escreval ("Fevereiro - 28 dias")

caso 3

escreval ("Março - 31 dias")

caso 4

escreval ("Abril - 30 dias")

caso 5

escreval ("Maio - 31 dias")

caso 6

escreval ("Junho - 30 dias")

caso 7

escreval ("Julho - 31 dias")

caso 8

escrevAl ("Agosto - 31 dias")

caso 9

escreval (" Setembro - 30 dias")

caso 10

escreval ("Outubro - 31 dias")

caso 11

escreval ("Novembro - 30 dias"

caso 12

escreval ("Dezembro - 31 dias")

outrocaso

escreval ("valor inválido")

fimescolha

fimalgoritmo