algoritmo "Serie Fatorial"
// Função : Escreva um Algoritmo para calcular e escrever a soma dos 10 primeiros terminas da série:
// S = 100/0! + 99/1! + 98/2! + 97/3! + ...
//
// Autor : Joni Pavanello
// Data : 3/6/2009
// Seção de Declarações 
var
   Prim, Fat, Cont, i, N : inteiro
   S                     : real
inicio
   S <- 0
   N <- 1
   Prim <- 100
   Fat <- 1
   Cont <- 0
   ENQUANTO Cont <= 10 FACA
       PARA i <- 1 ATE N FACA
           Fat <- Fat * i
       FIMPARA
       S <- S + Prim / Fat
       N <- N + 1
       Fat <- 1
       Cont <- Cont + 1
       Prim <- Prim -1
   FIMENQUANTO
   ESCREVA(S)
fimalgoritmo