Question

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

Answer 1

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

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

Результат
1.9990