Download: http://www.mediafire.com/?eih5br0dlb1sbwp
PROGRAM CT58;
USES crt;
VAR Bao:STRING;
n,i,E: REAL;
BEGIN
clrscr;
Bao:='E= ';
Writeln('Chuong trinh Tinh E(n) ....+1/N!+.... voi 1/n<2.10^6');
E:=1; n:=1; i:=1;
WHILE n<500000 DO BEGIN E:=E+1/n; i:=i+1; n:=n*i; END;
Write(Bao,E:4:3);
Readln
END.
PROGRAM CT58;
USES crt;
VAR Bao:STRING;
n,i,E: REAL;
BEGIN
clrscr;
Bao:='E= ';
Writeln('Chuong trinh Tinh E(n) ....+1/N!+.... voi 1/n<2.10^6');
E:=1; n:=1; i:=1;
WHILE n<500000 DO BEGIN E:=E+1/n; i:=i+1; n:=n*i; END;
Write(Bao,E:4:3);
Readln
END.