Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста решить задачу в Паскале!!
1) Даны координаты 2-ух точек, известно х,у. Найти середину отрезка.

Ответ оставил Гость

Var
  Ax,Ay,Bx,By,x,y:real;
begin
  Write(Введите координаты x,y первой точки: );
  Read(Ax,Ay);
  Write(Введите координаты x,y второй точки: );
  Read(Bx,By);
  x:=(Ax+Bx)/2;
  y:=(Ay+By)/2;
  Writeln(Координаты середины отрезка: (,x:0:2,;,y:0:2,))
end.

Тестовое решение:
Введите координаты x,y первой точки: -5 -3
Введите координаты x,y второй точки: 8 3
Координаты середины отрезка: (1.50;0.00)