Написать подпрограмму для нахождения значения числа е с ряда с
заданной точностью (e+1+1/1! +1/2! +1/3! + 1/n! + in fotran

Question

Информатика: Написать подпрограмму для нахождения значения числа е с ряда с заданной точностью (e+1+1/1! +1/2! +1/3! + 1/n! + in fotran

crasnowdim2018 · Answer

program ExponReal(8) :: s = 1, f = 1, eps Integer :: i = 1Read *, epsdo while(abs(1 / f) eps)    f = f * i    s = s + 1 / f    i = i + 1enddoPrint *, e = , send Program Expon...