• Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале

Ответы 1

  • var x, y: Real;    i: integer;begin     for i := 1000 downto 1 do     begin          if (i mod 2 = 0) then y := -1 * i             else y := i;          writeln('1/', i);         x := x + 1 / y;     end;     writeln('> ', x);end.А вручную это пришлось бы минут 30 даже с калькулятором считать х_х
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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