Question

разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам;
нужен листинг программы для Delphi

Answer 1

var
    a, b: real;

begin
    readln(a, b);
    Writeln('c = ', Sqrt(a * a + b * b));
    Writeln('S = ', a * b * 0.5);
end.