For21. Дано целое число $$N$$ ($$> 0$$). Используя один цикл, найти сумму $$1 + 1/(1!) + 1/(2!) + 1/(3!) +…+ 1/(N!)$$ (выражение $$ N! $$ — $$N$$-факториал — обозначает произведение всех целых чисел от 1 до N: $$N! = 1*2*…*N$$). Полученное число является приближенным значением константы $$e = exp(1)$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program For21; var Rez,factorial:Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Rez:=1; factorial:=1; For i:=1 to N do begin factorial:=factorial*i; Rez:=Rez+1/factorial; end; Writeln(Rez); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: