Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
<span>ответ будет МТООКП.
используется при кодировании сначало третья буква М, потом последняя Т, затем предпоследняя О и так далее посмотрите по слову работа</span><span>
</span>
Внутренним железом - хотя бы для того, чтобы его запустить.Операционной системой - чтобы на нем можно было хоть что-то делать.Монитором - чтобы видеть, что происходит.Мышью и клавиатурой - для удобства использования.
Var
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
<span>end.</span>