profile
Опубликовано 6 лет назад по предмету Информатика от evgen1243

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

  1. Ответ
    Ответ дан HRAshton
    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 даже с калькулятором считать х_х
Самые новые вопросы