Существует сумма бесконечных последовательностей e=1+1/1!+1/2!+1/3!+1/4!+…+1/n!+…; необходимо чтобы вычислялось «e». Напечатать в столбик значения, которые получатся, если учесть только два члена ряда 3,4,….10 — Pascal(Паскаль)

var
    e:real;
    n:integer;
    t:real;
begin
    e := 2;
    t := 1;
 
    for n:= 2 to 10 do
    begin
        t := t/n;
        e := e + t;
        writeln( n:5, e:10:6 );
    end;
end;

Похожие записи/страницы:

Leave a Comment

4 + 2 =