Pascal,цикл while или repeat
1+1/2!+1/4!+1/6!+…

Program n1;var i,n,p: integer;y: real;beginwrite('введите кол-во слагаемых: ');readln(n);i:=1;y:=1;p:=1;while i<n do beginp:=p*(2*i);y:=y+1/p;i:=i+1;end;writeln(y:2:10);end.