Вычислить сумму знака переменного ряда s=1-1/2+1/3-1/4 до тех пора очередные слагаемые не станут по модулю меньше заданной величины с

Question

Информатика

Леопольд

28 апреля, 06:03

Вычислить сумму знака переменного ряда s=1-1/2+1/3-1/4 до тех пора очередные слагаемые не станут по модулю меньше заданной величины с

+5

Ответы (1)

Знаете ответ на вопрос?

Аполлинарий · Answer 1

Только не "знака переменного", а "знакопеременного"

var c, ans: real; i: integer;

begin

read (c) ;

i : = 1;

ans : = 0;

while (1 / i > c) do

begin

if i mod 2 = 0

then

ans : = ans - 1 / i

else

ans : = ans + 1 / i;

i : = i + 1;

end;

writeln (ans) ;

end.