1. К блоку СТАРТ добавь блок Ожидание. Измени режим датчика для получения информации: Датчик цвета - Сравнение =Цвет. В параметр блока размести зеленый цвет. к блоку Ожидание добавь блок Звук. В параметрах блока Звук размести сообщение «Green». 2. 3. оро О.
PascalABC.NET beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');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.Пример работы: