или кратко:
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.Пример работы:
y=10, т.к. ни одно условие не выполнилось (x=10) or (x<2) (у ИЛИ ложь будет только в одном случаем, когда оба условия ложны), следовательно после условия мы пойдем по ветке иначе y=10
Объяснение: