Umiestnenie súboru www.TrSek.com/zadania/euler.pas

{ EULER.PAS                                      Copyright (c) Pheo }
{ Výpoèet Eulerovej konštanty.                                      }
{                                                                   }
{ Datum:19.06.1996                             http://www.trsek.com }

program euler;
uses crt;
var p,i:word;
    e:real;

function faktorial(x:integer):longint;
var i,s:longint;
begin
   s:=1;
   for i:=1 to x do s:=s*i;
   faktorial:=s;
end;

begin
   e:=0;
   writeln('Zvol stupen presnosti od 3 do 33');
   read(p);
   for i:=1 to p do
     e:=e+i/faktorial(i);
   writeln(e:1:10);
   repeat until keypressed
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com