求E=1+1/2!+1/3!+ ... +1/N!。1）直到第50项；2）直到最后一项小于0.000001。要求在一个程序中完成，两个结果分两行输出。

program divisor;
var
   i : integer;
   s, jc : double;
   IsFirst: boolean;
begin
     s := 0;
     jc := 1;
     IsFirst := true;
     for i := 1 to 50 do
     begin
          jc := jc*i;
          s := s+1.0/jc;
          if IsFirst and (jc >= 1e6) then
          begin
             writeln(s:0:16);
             IsFirst := false;
          end;
     end;
     writeln(s:0:15);
     readln;
end.