Найти периметр и площадь прямоугольного треугольника. ввести длины его катетов a и b. вывести полученные значения

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!