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

Question

Информатика

Лаврентьюшка

1 февраля, 06:08

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

+4

Ответы (1)

Знаете ответ на вопрос?

Митяй · Answer 1

Var katOne, katTwo : integer;

Begin

Write ('Введите катеты') ;

Readln (katOne, katTwo) ;

if (katOne > 0) and (katTwo > 0) then

writeln ('Площадь = ', katOne*katTwo/2, 'Периметр = ', katOne + katTwo + sqrt (katOne*katOne + katTwo*katTwo)

else writeln ('Error')

Readln ()

End.