Question

Пожалуйста помогите, но не из Интернета, там вроде не правильно

Answer 1

Var
  xa,ya,xb,yb,xc,yc: integer;
  A,B,C,p: real;
Begin
  Write('xa = ');ReadLn(xa);
  Write('ya = ');ReadLn(ya);
  Write('xb = ');ReadLn(xb);
  Write('yb = ');ReadLn(yb);
  Write('xc = ');ReadLn(xc);
  Write('yc = ');ReadLn(yc);
  //Вычислим длины сторон по теореме Пифагора
  A := sqrt(sqr(xa-xb)+sqr(ya-yb));
  B := sqrt(sqr(xb-xc)+sqr(yb-yc));
  C := sqrt(sqr(xc-xa)+sqr(yc-ya));
  //Теперь вычислим площадь по формуле Герона
  p := (A+B+C)/2;
  WriteLn('S = ',sqrt(p*(p-A)*(p-B)*(p-C)));
End.

Answer 2

Здравствуйте! Сможете мне пожалуйста с информатикой помочь ?

Answer 3

Я могу добавить задания