• Дано натуральное n. Вычислить
    2/1+3/2+4/3+...+n+1/n.

Ответы 1

  • var

       s: real;

       n, i: integer;

    begin

       readln(n);

       

       s := 0;

       for i := 1 to n do

           s := s + (i + 1) / i;

           

       writeln(s);

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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