Найти второй катет и радиус вписанной в треугольник окружности - Turbo Pascal

Формулировка задачи:

Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус вписанной окружности a=6 b=10

Код к задаче: «Найти второй катет и радиус вписанной в треугольник окружности - Turbo Pascal»

textual
Program Hip;
Const a=6;
b=10;
var c,r:real;
begin
c:=sqrt(sqr(b)-sqr(a)));
r:=(a+c-b)/2;
writeln ('c=',c:0:2,' r=',r:0:2);
readln;
end.

8   голосов, оценка 3.625 из 5


СОХРАНИТЬ ССЫЛКУ