// Autor: Prof. Tiago Eugenio de Melo // Data: 16.04.2012 // Contato: tiagodemelo@gmail.com algoritmo "Série" var soma: real i, n, den: inteiro inicio soma <- 0 leia(n) i <- 1 den <- 500 enquanto (i<=n) faca se (i%2<>0) entao soma <- soma + 2/den senao soma <- soma - 5/den fimse den <- den - 50 i <- i + 1 fimenquanto escreval(soma) fimalgoritmo