Даны отрезки - a, b, c, d для какждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника. (используйте процедуру prints(x, y, z), печатающую площадь треугольника со сторонами x, y, z, если такой треугольник существует.)

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c,d: real;   procedure plo (s: string; x,y,z: real); var sq: real; begin if ((y+z-x)> 0) and ((x+z-y)> 0) and ((x+y-z)> 0) then     begin     sq: =0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-;     writeln('площадь треугольника со сторонами ',s,'=',sq: 0: 3);     end else writeln('треугольник со сторонами ',s,' не существует'); end;   begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); plo ('a,b,c',a,b,c); plo ('a,b,d',a,b,d); plo ('a,c,d',a,c,d); plo ('b,c,d',b,c,d); end

1. это с ручным вводом a и n var  y, a, n, i: integer; begin  write('введите число ');   readln(a);   write('введите желаемую степень ');   readln(n);   write(a, '^', n, ' = ');   y: =a;   for i : = 2 to n do    y : = y * a;   write(y); end.2. а это с рандомизацией переменныхvar  y, a, n, i: integer; begin  a : = random(30);   n : = random(7);   write(a, '^', n, ' = ');   if n=0 then y: =1 else begin  y : = a;   for i : = 2 to n do    y : = y * a;   end;     write(y); end.

Потоковое сжатие  потоковое сжатие применяется как для видео, как и для звука. сжатие видео обеспечивается за счет уменьшения размера кадра, уменьшения частоты кадров, а также уменьшения количества цветов.для сжатия звука можно уменьшить частоту дискретизации и глубину кодирования, а также вместо стерео выбрать монофонический звук (один канал).в связи с широким распространением широкополосного высокоскоростного подключения к интернету качество потокового видео и звука существенно улучшилось.