Question

вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов А и В, записав это в программе Turbo Pascal

Answer 1

Program xxx;

   Var a, b, c, p, s : real;

Begin

   wtiteln('введите катет а-');

   read(a);

   wtiteln('введите катет b-');

   read(b);

   s:=(a*b)/2;

   writeln('площадь треугольника =', s);

   c:=sqrt(sqr(a)+sqr(b));

   p:= a+ b + c;

   writeln('периметр треугольника =', p);  

end.