задана гипотенуза прямоугольного треугольника и длина одного из катетов. составьте программу, с помощью которой определите периметр и площадь этого треугольника. задача в паскале. Помогите пожалуйста((
Answers & Comments
den162Sil
var a, b: integer; q , p, S: real; beginWriteln('Введите длину гипотенузы прямоугольного треугольника: ');Readln(a);Writeln('Введите длину катета прямоугольного треугольника: ');Readln(b);q:=sqr(a)-sqr(b);q:=sqrt(q);p:=q+a+b;Writeln('Периметр прямоугольного треугольника = ', p, ' см.');S:=a*b/2;Writeln('Площадь прямоугольного треугольника = ', S, ' см^2.');end.
Answers & Comments