или кратко:
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.Пример работы:
31÷2=15 ( ост.1)
15÷2=7 ( ост.1)
7÷2=3 (ост.1)
3÷2=1 (ост.1)
1÷2=0 ( ост.1)
Начинаем счёт снизу в верх ( остатки) тогда получается: 111110 в двоичной системе.