Task

Calculate the value of   e.



(e   is also known as   Euler's number   and   Napier's constant.)



See details: Calculating the value of e

real n, n1;
real e1, e;
 
n = 1.0;
n1 = 1.0;
e1 = 0.0;
e = 1.0;
 
while (e != e1){
  e1 = e;
  e += (1.0 / n);
  n1 += 1;
  n *= n1;
}
write("The value of e = ", e);