Даны катеты прямоугольного треугольника ab. Найти его гипотенузу c и периметр p.

Question

Информатика

Звезда

23 декабря, 22:07

Даны катеты прямоугольного треугольника ab. Найти его гипотенузу c и периметр p.

+3

Ответы (1)

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

Агафа · Answer 1

var a, b, c, P: real;

begin

writeln ('Введите два катета:') ;

readln (a, b) ;

P : = a + b;

c : = sqrt (sqr (a) + sqr (b)) ;

P : = P + c;

writeln (' c = ', c:0:2) ;

writeln (' P = ', P:0:2) ;

end.