Ответ:
кто-то или чтото там иди учи
Var
a, b, c, ma, mb, mc: real;
begin
read(a); read(b); read(c);
ma:=(sqrt(2*b*b+2*c*c-a*a))/2;
mb:=(sqrt(2*a*a+2*c*c-b*b))/2;
mc:=(sqrt(2*a*a+2*b*b-c*c))/2;
writeln('Медиана к стороне a=', ma:17:2);
writeln('Медиана к стороне b=', mb:17:2);
writeln('Медиана к стороне с=', mс:17:2);
end.
100011(2)=35 (10)
100011(2)=43(8)
100011(2)=23(16)
<span>101001011(2)=513(8)</span>
<span><span>101001011(2)=331(10)</span></span>
<span><span><span>101001011(2)=14B (16)</span></span></span>
А2=4-3=1
В2=3-1*2=1
С2=4 : 2=2
D2=3+1=4
D2 : С2 : В2 : А2 = 4 :2 : 1 :1 ----->данное отношение соответствует
диаграмме 4)
Var
x0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.