Объяснение:var
x1, x2, x3, AC, BC: real;
begin
write('Введите координату точки A: ');
readln(x1);
write('Введите координату точки B: ');
readln(x2);
write('Введите координату точки C: ');
readln(x3);
AC := abs(x3 - x1); { <-- расстояние между точками A и C }
BC := abs(x3 - x2); { <-- расстояние между точками B и C }
writeln(' AC = ', AC);
writeln(' BC = ', BC);
writeln(' AC + BC = ', AC + BC);
readln
end.
Объяснение:var
x1, x2, x3, AC, BC: real;
begin
write('Введите координату точки A: ');
readln(x1);
write('Введите координату точки B: ');
readln(x2);
write('Введите координату точки C: ');
readln(x3);
AC := abs(x3 - x1); { <-- расстояние между точками A и C }
BC := abs(x3 - x2); { <-- расстояние между точками B и C }
writeln(' AC = ', AC);
writeln(' BC = ', BC);
writeln(' AC + BC = ', AC + BC);
readln
end.