Question

Найдите координаты точки (x,y) делящий отрезок AB пополам, если известно, что его концы имеют координаты A(x1,y1) , B(x1,y2) x=x2-x1поделить на 2 y=y2-y1поделить на 2 на языке паскаль пожалуйста очень срочно

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

begin
    var x1 := ReadReal('координаты A(x1,y1) =');
    var y1 := ReadLnReal();
    var x2 := ReadReal('координаты B(x2,y2) =');
    var y2 := ReadLnReal();
    
    Writeln('O(', (x1 + x2) / 2, ', ', (y1 + y2) / 2, ')');
end.