Rosberguedes

EU CONSEGUIR RESOLVER A QUESTÃO COM AJUDA DE UM AMIGO !VALEU PELA AJUDA! program Q2L1; uses crt; var e:real; n,fat,i,x:integer; begin e:=1;n:=1; writeln('Informe o denominador'); readln(x); if(x>0) then while (n<=x) do begin fat:=1; for i:= n downto 1 do fat := fat*n; e:=e+(1 div fat); N := N + 1; end else writeln('Valor nao permitido'); writeln('O Valor gerado pela expressao é ',e:2:2); readln; end.

A minha duvida era como eu iria calcular o valor de E. Eu consegui desenvolver o código...ele esta certo ou errado? program listaB1Q2; uses crt; var e,fat1,fat2,fat3:real; N,v1,v2,v3:integer; begin writeln('Digite um valor positivo'); readln(N); while N < 0 do begin writeln('Digite um valor positivo'); readln(N); end; for v1:= 1 downto 1 do fat1:= 1+1 div v1; for v2:= 2 downto 1 do fat2:= fat1 + 1 div v2; for v3:= 3 downto 1 do fat3:=fat1+fat2+1 div 3; e:=fat1+fat2+fat3+1; writeln('O valor de E = ',e/N:2:2); readkey; end.

Olá pessoal, preciso de ajuda com esse código pois estou com dificuldades... Escreva um programa que lê um valor N inteiro e positivo e que calcula e escreve o valor de E. E = 1 + 1 / 1! + 1 / 2! + 1 / 3 ! + 1 / N! program listaB1Q2; uses crt; var e,n:real; begin writeln('Digite um valor positivo'); readln(N); while N < 0 do begin writeln('Digite um valor positivo'); readln(N); end; readkey; end.