Помогите пожалуйста срочно
Var x,y,z,p,l:real;
begin
writeln(Введите длины сторон X Y Z);
writeln(Введите сторону X);
readLn (x);
writeln(Введите сторону Y);
readLn (y);
writeln(Введите сторону Z);
readLn (z);
if (x+y>z) and (y+z>x) and (x+z>y) then
begin
writeln (треугольник);
p:=(x+y+z)/2;
l:=(2*sqrt (x*y*p*(p-z)))/(x+y);
writeln (полупериметр равен ,p);
writeln (биссектриса равна ,l);
end
else writeln (не является треугольником);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
