Какое число выведет данная программа?

18

Объяснение:

(1+5)*3=18

1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!

2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!

3. Чтобы нарисовать  прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при прямых линий или кисточек.

4. Тоже самое что и 3.

5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при кривых линий или кисточек.

6. Тоже самое что и 5.

Всё это через PAINT.

                                     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.

Пример работы: