Дано целое число N. Вычислить 1/1! +1/2! +1/3! +… +1/N!

Question

Дано целое число N. Вычислить 1/1! +1/2! +1/3! +… +1/N!

Answer 1

67

nightboy

19 апреля 2023

На Паскале: 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: