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