В программе pascal найти сумму ряда 1 - 1/ 2 + 1/3 - 1/4 + 1/5 -…
В программе pascal найти сумму ряда 1 - 1/ 2 + 1/3 - 1/4 + 1/5 -…
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы