Напишите программу нахождения длин медиан m1,m2 и m3, треугольника по указанными формулами . длина сторон a,b,c задается с клавиатуры m1=1/2*sqrt(2a^2+2b^2-c^2); m2=1/2*sqrt(2a^2+2c^2-b^2); m3=1/4*sqrt(2b^2+2c^2-a^2); .

var      a, b, c: real; function mediana(a, b, c: real): real; begin      mediana : = 1 / 2 * sqrt(2 * a * a + 2 * b * b - c * c); end; begin      writeln('введите длины сторон треугольника a b c');       read(a, b, c);       writeln('m1 = ', mediana(a, b, c));       writeln('m2 = ', mediana(a, c, b));       writeln('m3 = ', mediana(b, c, a)); end.

  pascal abc(проверьте правильность написанных вами

 

uses crt; var a,b,c,m1,m2,m3 : integer; beginwriteln('введите длины сторон треугольника a b c'); read(a,b,c); m1: =1/2*sqrt(2*a^2+2*b^2-c^2); m2: =1/2*sqrt(2(a^2+2*c^2-b^2); m3: =1/4*sqrt(2*b^2+2*c^2-a^2); writeln('m1= ',m1,'m2= ',m2,'m3= ',m3); end.

Const  n = 15; var  a, b: array[1..n] of integer;   i, j, step, t: integer;   flag: boolean; begin  randomize;   writeln('исходные элементы массива');   for i : = 1 to n do  begin      a[i] : = random(10) - 5;       write(a[i]: 4)  end;   { сортируем массив (метод шелла) }  step : = n div 2;   while step > 0 do   begin      for j : = n - step downto 1 do       begin          i : = j;           while i < = n - step do           begin              if a[i] > a[i + step] then              begin                  t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t              end;               i : = i + step          end      end;       step : = step div 2  end;   {  проходим по массиву и если элемент встречается более одного раза подряд,  переносим его в другой массив  }  j : = 0; t : = a[1]; flag : = false;   for i : = 2 to n do  begin      if (a[i] = t) and (not flag) then      begin          j : = j + 1; b[j] : = t; flag : = true      end      else begin flag : = false; t : = a[i] end  end;   writeln;   writeln('отобранные элементы массива');   for i : = 1 to j do write(b[i]: 4);   writelnend.тестовое решение: исходные элементы массива  -2    4    1  -3  -1  -2  -5  -1    2    4    1    3  -5  -2  -3отобранные элементы массива  -5  -3  -2  -1    1    4