• Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т.е. S=1/1+1/2+1/3+...+1/N.

Ответы 1

  • program abc;var  n, i: integer;  s: real;beginwrite('Введите количество чисел: ');  readln(n);  for i := 1 to n do    s := s + 1 / i;  write('Сумма обратных чисел = ', s);end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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