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

Ответы 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
    • Автор:

      aprilneal
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years