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

[email protected] в категроии Информатика, вопрос открыт 05.04.2017 в 22:45

1 ответ

[email protected] , ответ добавлен 05.04.2017 в 22:51

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.

 0   

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или  авторизируйтесь на сайте чтобы оставить ответ на вопрос.