Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 – x1| — Pascal(Паскаль)

program tchk;
const pi = 3.14;
var X1, X2, Rast: real;
begin
    write('Введите координаты двух точек на оси x: ');
    read(X1, X2);
    Rast := abs(X2 - X1);
    writeln('Расстояние между двумя точками -- ', Rast:5:2);
end.

Leave a Comment

21 − = 19