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

Question

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

Answer 1

Var
  i,n:integer;
  p,s:real;
begin
  Write('n='); Read(n);
  s:=1;
  i:=1;
  p:=1;
  while i    p:=p*2*i*(2*i-1);
    s:=s+1/p;
    i:=i+1
    end;
  Writeln('S=',s)
end.

Answer 2

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