. Задана площадь прямоугольного треугольника и один из его катетов. Составьте программу, с помощью которой определите гипотенузу и периметр этого треугольника.

1

Ответы и объяснения

  • egos
  • новичок
2012-11-19T22:33:59+04:00

program p1;
uses crt;
var S, a, b, c:real;
begin
write('Введите площадь треугольника: '); readln(S);
write('Введите один из катетов: '); readln(a);
b:=S/(1/2*a);
c:=sqrt(a*a+b*b);
writeln('Второй катет = ', b);
writeln('Гипотенуза = ', c);
end.