19 lines
177 B
Text
19 lines
177 B
Text
let n = 1
|
|
let m = 1
|
|
let f = 0
|
|
let e = 1
|
|
|
|
do
|
|
|
|
if e <> f then
|
|
|
|
let f = e
|
|
let e = e + 1 / n
|
|
let m = m + 1
|
|
let n = n * m
|
|
|
|
endif
|
|
|
|
loop e <> f
|
|
|
|
print "The value of e = ", e
|