Программа Паскаль. здание...

Программа Паскаль. здание - разработать функцию с применением примененнием управляющих конструкций FOR, WHILE, REPEAT y = ∑(1/i!)

 

(FOR)
function sumf(i:integer):real;
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;