{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" 0 11 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Resolu\347\343o do Enuncia
do n\272 138" }}{PARA 0 "" 0 "" {TEXT -1 11 "Tiago Pinho" }}{PARA 0 "
" 0 "" {TEXT -1 8 "N\272 15654" }}{PARA 0 "" 0 "" {TEXT -1 13 "Eng\252
 Produ\347\343o" }}{PARA 0 "" 0 "" {TEXT -1 10 "03-05-2002" }{MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "Introdu\347\343o dos valores:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "n:=5;SF:=0;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"nG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
SFG\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "C\341lculo do Sub Fac
torial de n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "for i from 1 by 1 to
 (n-1) do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 " SF:=SF+(((-1)^(i+1)*
n!)/(i+1)!);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "end do;" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SFG\"#
g" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SFG\"#S" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#SFG\"#X" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SFG\"#
W" }}}}{MARK "5" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }