Вычислите частичную сумму ряда s=1+1/2+1/4+1/8+ - вопрос №87127491121418 от ygorbrusnyak 28.12.2022 11:51

Question

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

ygorbrusnyak · Answer

// 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