Катеты прямоугольного треугольника A и B соответственно равны 125, 127. Написать программу, определяющую площадь и периметр треугольника.

Площадь этого треугольника мы можем рассчитать, пользуясь только той информацией, которая дана в задаче. А именно длина двух катетов.

Для этого нужно создать две переменные для каждого из известных катетов, а также для гипотенузы, значение которой нам понадобится в дальнейшем для нахождения периметра данного треугольника:

var A, B, C : integer;

Ploschad : = (A + B) / 2;

writeln ('Площадь ', Ploschad);

Для периметра нужна третья сторона:

С : = sqrt (sqr (A) + aqr (B));

Perimetr : = A + B + C;

writeln ('Периметр ', Perimetr);