Надо код в письменном виде на языке Паскаль
Елементи рівнобедреного прямокутного трикутника пронумеровані таким чином: 1 – катет (a), 2 – гіпотенуза (c), 3 – висота, опущена на гіпотенузу (h), 4 – площа (S). Дано номер одного з цих елементів і його значення. Вивести значення інших елементів цього трикутника (в тому ж порядку).

Основными характеристиками операционных систем являются:

разрядность ( для ПЭВМ 8-разрядные, 16-разрядные, 32-разрядные, 64-разрядные ОС);

число программ, одновременно выполняемых под управлением ОС (одно - и многозадачные ОС).

 Многозадачные ОС поддерживают параллельное выполнение нескольких программ, работающих в рамках одной вычислительной системы, в один момент времени. Многозадачность бывает корпоративная и вытесняющая.

 При наличии корпоративной многозадачности приложения совместно используют процессор, периодически передавая его друг другу. Если какое-то приложение откажется освободить процессор, система ничего не сможет с этим поделать.

 Если используется вытесняющая многозадачность, то операционная система полностью контролирует все приложения и распределяет между ними процессорное время, тем самым сильно понижая вероятность "зависания" системы при ошибках в работе программ.

 Однозадачные ОС поддерживают режим выполнения только одной программы в отдельный момент времени;

многопоточность - это технология, позволяющая приложением должным образом осуществлять многозадачное выполнение своих процессов. Процесс - любая задача или деятельность, инициируемая рограммой. Одна программа может выполнять несколько процессов одновременно;

тип пользовательского интерфейса: интерфейс командной строки, текстовый оконный интерфейс, графический оконный интерфейс пользователя (ИКС, ТИП, ГИП);

требование к аппаратным ресурсам;

производительность;

надежность (устойчивость в работе, защищенность данных от несанкционированного доступа );

обеспеченность прикладными программами;

наличие сетевых возможностей ( сетевые, локальные ОС);

Сетевые ОС предназначены для управления ресурсами компьютеров, объединенных в сеть с целью совместного использования данных, и предоставляют мощные средства разграничения доступа к данным при обеспечении их целостности и сохранности, а также множество сервисных возможностей по использованию сетевых ресурсов;

количество поддерживаемых процессоров: однопроцессорные, многопроцессорные;

 Многопроцессорные ОС, в отличие от однопроцессорных, поддерживают использовани нескольких процессоров для решения одной задачи;

открытость операционной системы, заключается в том, что компоненты ОС доступны в исходных кодах для любого пользователя.

использования оперативной памяти;

 Различают два работы с памятью: линейный адресный - ОС работает со всей системной памятью, как с единым непрерывным пространством; сегментарный - ОС работает с небольшим объёмом доступной без специальных средств оперативной памяти.

var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln;   // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln;   // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.