В программе pascal найти сумму ряда 1 - 1 / 2 + 1/3 - 1/4 + 1/5 - ...

Question

Информатика

Маринка

21 мая, 07:40

В программе pascal найти сумму ряда 1 - 1 / 2 + 1/3 - 1/4 + 1/5 - ...

+2

Ответы (1)

Знаете ответ?

Анастасей · Answer 1

Var

i, s, p, t:double;

begin

i:=1; p:=1;

repeat

t:=1/i; s:=s+p*t/i; i:=i+1

until t<=1e-5;

Writeln ('Сумма ряда с точностью 0.00001 равна ', s:7:5)

end.

Тестовое решение:

Сумма ряда с точностью 0.00001 равна 1.64492