Question

По двум данным катетам составьте програму вичесления гипотенузы и плошади прямугольного треугольника

Answer 1

Var
  a, b, c, S: real;

begin
  write('Введите длину 1 катета: ');
  readln(a);
  write('Введите длину 2 катета: ');
  readln(b);
  c := Sqrt(Sqr(a) + Sqr(b));
  S := 0.5 * a * b;
  writeln('Гипотенуза треугольника = ', c);
  writeln('Площадь треугольника = ', S);
  readln;
end.