Составить программу вычисления площади и периметра прямоугольного треугольника, если заданы его катеты. Катеты ввести с клавиатуры.
Вначале вычислить гипотенузу треугольника, а затем посчитать площадь и периметр.
С операторов ввода ввести катеты, в разделе описания переменных задать тип для всех переменных, используемых для решения данной задачи (катеты, гипотенуза, площадь и периметр).
pascal
Объяснение:
var
a, b, c: real;
s, p: real;
begin
Write('Введите катеты треугольника: '); ReadLn(a, b);
c := sqrt(sqr(a) + sqr(b));
p := a + b + c;
s := a * b / 2;
WriteLn('Периметр треугольника равен ', p:3:2);
WriteLn('Площадь треугольника равна ', s:3:2);
end.