Найти сумму элементов последовательности с точностью 0,001:
S=1 + 2/(2*3) - 4/(3*9) + 6/(5*27) - 8/(8*81) + 10/(13*243) - ...

1

Ответы и объяснения

Лучший Ответ!
2014-03-18T19:20:31+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Const
    e = 0.000001;

var
    i, f, f1, thn, t: integer;
    s, s1: real;

begin
    i := 0;
    f1 := 1;
    f := 2;
    thn := -1;
    s := 1;
    s1 := 0;
    repeat
        i := i + 1;
        s1 := s;
        thn := thn * -3;
        s := s + 2 * i / f / thn;
        writeln(2 * i, ' ', f, ' ', thn, ' ', s);
        t := f1;
        f1 := f;
        f := f + t
    until abs(abs(s1) - abs(s)) < e;
    writeln(s);
end.