Даны 4 точки a1(x1y1) a2(x2y2) a3(x3, y3) a4(x4, y4) определить будут ли они вершинами параллелограмма информатик

Type point = record
       x,y: real;
     end;
var vc: array [1..4] of point;
    bg,nd: point;
    i,j,k,m: integer;
begin  writeln('координаты точек - через пробел ');
  for i:=1 to 4 do
  begin
    write('точка  ',i,'    ');
    readln(vc[i].x,vc[i].y);
  end;
{ сравнение векторов }
    m:=0;
    for i:=2 to 4 do
    begin
      bg.x:=vc[i].x-vc[1].x;
      bg.y:=vc[i].y-vc[1].y;
      j:=1;  k:=1;
      while ((j=1) or (j=i)) do j:=j+1;
      while ((k=1) or (k=i) or (k=j)) do k:=k+1;
      nd.x:=vc[j].x-vc[k].x;
      nd.y:=vc[j].y-vc[k].y;
      if ((bg.x=nd.x) and (bg.y=nd.y)) or
       ((bg.x=-nd.x) and (bg.y=-nd.y)) then
       begin
          m:=1;
          break;
       end;
   end;
   if m=1 then writeln('точки образуют параллелограмм')
   else writeln('точки не образуют параллелограмм');
end.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный

1. Частота 48 КГц требует для записи 48 000 отсчетов в секунду на каждый канал.
2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду.
3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта.
4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт
5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт.
6. Определяем максимальное время звучания при указанном размере файла:
2 097 152 / 192 000 ≈ 10.92 (секунды)