Составить программу вычисления площади и периметра прямоугольного треугольника, если...

Question

Составить программу вычисления площади и периметра прямоугольного треугольника, если заданы его катеты. Катеты ввести с клавиатуры. Вначале вычислить гипотенузу треугольника, а затем посчитать площадь и периметр. С помощью операторов ввода ввести катеты, в разделе описания переменных задать тип для всех переменных, используемых для решения данной задачи (катеты, гипотенуза, площадь и периметр).

Answer 1

Ответ:

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.