program Begin12; var a, b, c, p,s: real; begin write('Введите два катета прямоугольного треугольника: '); read(a, b); c := sqrt(sqr(a) + sqr(b)); p := (a + b + c) /2; s := sqrt(p * (p - a) * (p - b) * (p - c)); writeln('Площадь -- ', s:5:2); writeln('Гипотенуза -- ', c:5:2); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
