Перевести с Языка PASCAL в С++ uses crt;
var a,b,c,ma,mb,mc: real;

function Mediana (x,y,z: real): real;
var m: real;
begin
m:=0.5*((2*sqr(y))+(2*sqr(z))-sqr(x));
Mediana:=m;
end;

begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
writeln('Медиана к стороне А =', Mediana (a,b,c):0:1);
writeln('Медиана к стороне B =', Mediana (b,c,a):0:1);
writeln('Медиана к стороне C =', Mediana (c,a,b):0:1);
readkey
end.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.