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