или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
1
Объяснение:
b = 5
a = -3
a = 7 + (-3) * 5 = 7 + (-15) = -8
b = -8 / 2 + 5 = -4 + 5 = 1