algoritmos pseu

Lista 2 ,Algoritmo
Nome: Eng : Civil .
1-)algoritmo "exercicio1"
// Função : Faça um algoritmo que mostre os números pares de 1 a 1000.
// Autor :
// Data : 24/09/2014
// Seção de Declarações var i:inteiro num:real inicio
// Seção de Comandos para i de 1 ate 1000 faca se (i%2=0)entao escreva(i) fimse fimpara fimalgoritmo 2-)algoritmo "exercicio2"
// Função : Faça um algoritmo que mostre os números ímpares de 1 a 1000.
// Autor :
// Data : 24/09/2014
// Seção de Declarações var i:inteiro num:real inicio
// Seção de Comandos para i de 1 ate 1000 faca se (i%2=1) entao escreval(i) fimse fimpara fimalgoritmo 3-)algoritmo "exercicio3"
// Função : Faça um algoritmo que mostre os múltiplos de 8 de 1 até 1000
// Autor :
// Data : 24/09/2014
// Seção de Declarações var i:inteiro inicio // Seção de Comandos para i de 1 ate 1000 faca se (i%8=0)entao escreval(i) fimse fimpara fimalgoritmo 4-)algoritmo "exercicio4"
// Função : Faça um algoritmo que leia 50 números , calcule e mostre a média
//aritmética, o maior e menor número
// Autor :
// Data : 24/09/2014
// Seção de Declarações var i:inteiro numero,soma,mediageral:real inicio
// Seção de Comandos mediageral:=0 para i de 1 ate 5 faca escreval("Digite o ",i, " O número = " ) leia(numero) soma:=(numero+soma) fimpara mediageral:=(soma/5) escreval("Média aritmética : " ,mediageral) fimalgoritmo 5-)algoritmo "exercicio5"
// Função : Leia um número que será o limite de um intervalo e imprima todos os números //impares menores que esse número .
// Autor :
// Data : 30/09/2014
// Seção de Declarações var lim,imp:inteiro inicio // Seção de Comandos escreva("Digite um número limite para o intervalo de números : ") leia(lim) para imp de lim ate 0 passo -1 faca se (imp%2=1)entao escreval (imp) fimse fimpara fimalgoritmo 6-)algoritmo "exercicio6"
// Função : Leia um número que será o limite