По двум данным катетам составьте програму вичесления гипотенузы и плошади прямугольного треугольника



По двум данным катетам составьте програму вичесления гипотенузы и плошади прямугольного треугольника

Ольга в категроии Информатика, вопрос открыт 28.04.2017 в 08:44

1 ответ



Аксиния , ответ добавлен 28.04.2017 в 08:57

Var
a, b, c, S: real;

begin
write('Введите длину 1 катета: ');
readln(a);
write('Введите длину 2 катета: ');
readln(b);
c := Sqrt(Sqr(a) + Sqr(b));
S := 0.5 * a * b;
writeln('Гипотенуза треугольника = ', c);
writeln('Площадь треугольника = ', S);
readln;
end.

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