• Помогите пожалуйста составьте программу в Паскале АВС
    1/1 + 1/2 + 1/3 + 1/4 + ...... + 1/37

Ответы 1

  • var i: byte; sum: real;begin  for i := 1 to 37 do    sum := sum + 1/i;  writeln(sum);  end. 
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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