Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму — Pascal(Паскаль)

Program Begin17;

Var
  A, B, C: Real;

Begin
  ReadLn(A, B, C);
  WriteLn('AC = ', Abs(C - A));
  WriteLn('BC = ', Abs(C - B));
  WriteLn('Summa = ', Abs(C - A) + Abs(C - B));

End.

Leave a Comment