1) Чтобы земля на грядках была сырой, достаточно, чтобы дождь. (Это не необходимо, например, можно полить грядки из шланга)
2) Чтобы число делилось на 3, достаточно, чтобы оно делилось на 9. (Не необходимо, например, 6 делится на 3, но не делится на 9)
3) Чтобы играть в хоккей, необходимо иметь клюшку. (Кроме клюшки нужен другой инвентарь, площадки, игроки)
4) Чтобы произведение двух чисел равнялось 0, достаточно, чтобы каждое из них равнялось 0. (Не обязательно, 2 * 0 = 0, хотя 2 не равно 0)
5) Чтобы умножить сумму нескольких чисел на какое-нибудь число, достаточно каждое слагаемое умножить на это число и произведения сложить (это не необходимо, можно сначала сложить, а потом умножить)
Наблюдение 1: сумма ряда 1 - 1/2 + 1/3 - 1/4 + 1/5 -... известна и равна ln(2) ~ 0.693147..., так что ответ можно написать и так. Наблюдение 2: если ряд знакочередующийся и его члены по модулю равномерно убывают (т.е. ряд имеет вид x1 - x2 + x3 - x4 + x5 -... и x1 > x2 > x3 > x4 > x5 > ... > 0), то отличие частичной суммы ряда x1 - x2 + x3 - ... +- xn от истинной не более, чем xn.
Используя наблюдение 2, приходим к выводу, что необходимо суммировать первые 10000 членов ряда.
var S: real; i: integer; begin S := 0; for i := 1 to 10000 do if (i mod 2 = 1) then S := S + 1/i else S := S - 1/i; writeln(S) end.
2) Чтобы число делилось на 3, достаточно, чтобы оно делилось на 9. (Не необходимо, например, 6 делится на 3, но не делится на 9)
3) Чтобы играть в хоккей, необходимо иметь клюшку. (Кроме клюшки нужен другой инвентарь, площадки, игроки)
4) Чтобы произведение двух чисел равнялось 0, достаточно, чтобы каждое из них равнялось 0. (Не обязательно, 2 * 0 = 0, хотя 2 не равно 0)
5) Чтобы умножить сумму нескольких чисел на какое-нибудь число, достаточно каждое слагаемое умножить на это число и произведения сложить (это не необходимо, можно сначала сложить, а потом умножить)
Наблюдение 2: если ряд знакочередующийся и его члены по модулю равномерно убывают (т.е. ряд имеет вид x1 - x2 + x3 - x4 + x5 -... и x1 > x2 > x3 > x4 > x5 > ... > 0), то отличие частичной суммы ряда x1 - x2 + x3 - ... +- xn от истинной не более, чем xn.
Используя наблюдение 2, приходим к выводу, что необходимо суммировать первые 10000 членов ряда.
var S: real;
i: integer;
begin
S := 0;
for i := 1 to 10000 do
if (i mod 2 = 1) then
S := S + 1/i
else
S := S - 1/i;
writeln(S)
end.