Катет и гипотенуза прямоугольного треугольника равны 12 и 20 соответственно. Найдите высоту, проведённую из вершины прямого угла.

решение задания по геометрии
 

а)  uses crt; var c,d: integer; s: real; beginwrite('введите число с: '); readln(c); write('введите число d: '); readln(d); s: =(power(c,3)+power(d,3))/2; writeln('полусумма кубов равна ',s: 5: 3); end.б)  uses crt; var a,x1,x2,x3,x4,s: integer; beginwrite('введите четырёхзначное число: '); readln(a); x1: =a div 1000; x2: = a-1000*x1; x2: =x2 div 100; x3: =a-1000*x1-100*x2; x3: =x3 div 10; x4: =a-1000*x1-100*x2-10*x3; s: =x1*x2*x3*x4; writeln('произведение всех цифр в числе ',a,' равно ',s); end.

Правила работы в лаборатории:
1. Нельзя принимать пищу и использовать для еды и питья лабораторную посуду.
2. Нельзя трогать приборы и вещества без разрешения учителя.
3. Нельзя нюхать незнакомые вещества, приближая их к лицу. Вдыхание паров некоторых веществ может вызвать раздражение и ожог дыхательных путей.
4. Нельзя использовать неизвестные вещества.
5. В случае любых затруднений необходимо немедленно обратиться к учителю. При работе следует соблюдать аккуратность и осторожность.
6. По окончании работы все приборы и вещества должны быть возвращены на своё место, а рабочее место приведено в порядок.