Вычислите частичную сумму ряда S=1+1/2+1/4+1/8+..... вычисления прекратите,когда модуль

Вычислите частичную сумму ряда S=1+1/2+1/4+1/8+..... вычисления закончите,когда модуль очередного слагаемого станет меньше 0,001

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var (s,d):=(1.0,1.0);
  repeat
    d/=2.0; s+=d
  until dlt;0.001;
  Writeln(s:0:4)
end.

Итог
1.9990
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт