begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
4) 1
5) 2
(3) возможно 2/3/4)
Порядок действий
С:\Осень\Деревья\Клён
С:\Осень\Деревья
С:\Осень\Деревья\Полив
С:\Осень\Деревья\Полив
С:\Осень\Деревья
С:\Осень\Деревья\Уход
Ответ: 3
,,,,,,,,,,,,,,,,,,,,,,,,
Через lpt Подключают принтер