Qaysi dasturlanadigan mexanik qurilma avval paydo bo‘lgan? 15 mikroprotsessorlarning oyoqchalari soni nechta? Sichqonchalarni qaysi portalga ulash mumkin? Mikrosxemaning topologiyasi nimani bildiradi? 1chi marta ommaviy ravishda ishlab chiqilgan mikroprotsesorni ayting? Tezkor xotira nima asosida yasaladi

                                     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.

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