• Дано целое число N (> 0). Вывести сумму 2 + 1/(2!) + 1/(3!) + ... + 1/(N!) (выражение N! — "N факториал" — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•...•N). Полученное число является приближенным значением константы e = exp(1) (= 2.71828183...).
    Язык: Delphi 7

Ответы 1

  • var n,i:integer; f:longint; s:real;beginwrite('n = ');readln(n);f:=1; s:=2;for i:=2 to n do begin f:=f*i; s:=s+1/f; end;writeln('s = ',s);end.Пример:n = 10s = 2.71828180114638
    • Автор:

      urbano
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years