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

Question

Информатика

Люня

12 марта, 05:23

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