Программа паскаль. здание - разработать функцию с применением примененнием конструкций for, while, repeat y = ∑ (1/i! )

begin

k:=1;

sumf:=1; {так как для i1 sum=1}

for i:=1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k:=k*i;

f:=k;

sumf:=sumf+1/f;

end;

(WHILE)

function sumw(i:integer):real;

begin

k:=1;

i:=1;

sumw:=1;

while i<=n do

begin

k:=k*i;

f:=k;

sumw:=sumw+1/f;

end;

(REPEAT)

function sumr(i:integer):real;

begin

k:=1;

i:=1;

sumr:=1;

repeat

k:=k*i;

f:=k;

sumr:=sumr+1/f;

i:=i+1

until i<n;