Напишите программу вычисления площади и гипотенузы прямоугольного треугольника , если известны его катеты.нужно оформить эту программу в виде подпрограммы функция! : )

program n1; uses crt; var a,b,c,gip: real; function s(x,y: real): real; begins: =x*y/2; end; function g(x,y: real): real; beging: =sqrt(sqr(x)+sqr(y))end; beginwriteln('vvedite katety'); readln(a,b); c: =s(a,b); gip: =g(a,b); writeln('ploshad = ',c: 3: 2); writeln('gipotenuza = ',gip: 3: 2); readlnend.

Объяснение:

1. Программное обеспечение – это:

2) совокупность программ установленных на компьютере

2. Что не является объектом операционной системы Windows:

3) Процессор

3. Какое действие нельзя выполнить с объектом операционной системы Windows:

4) Порвать

4. Файл – это:

4) программа или данные на диске

5. Операционная система – это:

3) набор программ, обеспечивающий работу всех аппаратных устройств компьютера и доступ пользователя к ним

6. Что такое буфер обмена:

1) специальная область памяти компьютера, в которой временно хранится информация

7. Какие функции выполняет операционная система:

4) организация диалога с пользователем, управления аппаратурой и ресурсами компьютера

8. Операционная система относится к:

2) системному программному обеспечению

9. Графическим редактором называется программа, предназначенная для:

3) работы с графическим изображением

10. Для удаления символа справа от курсора используется клавиша:  3) Delete

11. Текст, набранный в тестовом редакторе, хранится на внешнем запоминающем устройстве:

1) в виде файла

12. Текущий диск – это

2) диск, с которым пользователь работает в данный момент времени

13. Какой из подключения к Интернет обеспечивает наибольшие возможности для доступа к информационным ресурсам:

4) постоянное соединение по оптоволоконному каналу

14. Для удаления символа слева от курсора используется клавиша:

2) Backspace

Комментарий:

Да условие не до конца дописано, но с таким началом условия существует только одна задача:

определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do  if A[i - 1] < A[i] then begin  s := s + 1; t := A[i];  A[i] := A[i - 1];  A[i - 1] := t  end;

Незачем считать, хотя и можно, проще запустить этот код:

var a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4); i, t, s: integer; begin s := 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end; write(s); end.

Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.