Задание:
Дано целое число N. Вычислить 1/1! +1/2! +1/3! +… +1/N!
Решение:
На Паскале: program MyProgram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln ('Введите число N.'); readln (n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln ('Сумма 1/1! +1/2! +1/3! +… +1/N=',sum); end.
Знаете другой ответ?