Question

Помогите пожалуйста для Паскаль

Answer 1

===== PascalABC.NET =====

procedure Tri(a, b: real; var c, S, P: real);

begin

 c := Sqrt(a * a + b * b);

 S := 0.5 * a * b;

 P := a + b + c

end;

begin

 var (a, b) := ReadReal2('Введите длинв катетов:');

 var c, S, P: real;

 Tri(a, b, c, S, P);

 Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,

     ', периметр ', P:0:3)

end.