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

Question

Информатика

Нинель

28 мая, 14:15

Даны катеты прямоугольного треугольника 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.