Question

Составьте программу вычисления расстояния между двумя точками с координатами x1 и x2 лежащим на числовой оси по формуле R|x1 -x2|

Answer 1

//Код PascalABC.NET 3.3 (1627)

Function R1D(x1,x2: real): real;
Begin
  Result := Abs(x1-x2);
End;

Var
  a,b: integer;

Begin
  Write('x1 = ');ReadLn(a);
  Write('x2 = ');ReadLn(b);
  WriteLn('Расстояние между x1 и x2: ',R1D(a,b));
End.