Question

Обчислити периметр і площу прямокутного трукутника за заданими катетами. В PascalABC.NET

Answer 1

var
    a, b, c, P, S : real;
begin
   write('Введите первый катет: ');
   readln(a);
   write('Введите второй катет: ');
   readln(b);
   S := (a * b) / 2;
   writeln('Площадь треугольника = ', S:2:2);
   c := sqrt(sqr(a)+sqr(b));
   P := a + b + c;
   writeln('Периметр треугольника = ', P:2:2);  
end.