Вычислите частичную сумму ряда s=1+1/2+1/4+1/8+ вычисления - вопрос №87136511121418 от Arina8987 14.02.2020 15:29

Question

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

Arina8987 · 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