или кратко:
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.Пример работы:
8
Объяснение:
Программа напечатает "YES", когда любое из двух чисел меньше 10:
(6, 4); (7, 8); (5, 6); (–5, 7); (–2, 2); (4, 5); (8, 6); (11, 3)