mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 17:12:34 +01:00
16 lines
218 B
ObjectPascal
16 lines
218 B
ObjectPascal
program calc_e;
|
|
|
|
{Calculate the number e.}
|
|
|
|
const fac:array[0..7] of word=(1,1,2,6,24,120,720,5040);
|
|
|
|
var e:fixed;
|
|
i:byte;
|
|
|
|
begin
|
|
e:=0;
|
|
for i:=0 to 7 do
|
|
e:=e+fixed(1)/fac[i];
|
|
writeln(e);
|
|
end.
|