• Вычислить сумму ряда чисел 1 + 1/2 + 1/3 + … + 1/n

Ответы 1

  • vari,n:integer;s:real;beginwriteln('Введите n');readln(n);for i:=1 to n dos:=s+(1/i);writeln(s);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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