Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Ребята помогите! Пожалуйста
Составте программу нахождения растояния мужду двумя точками с координатами x1 и x2, лежащими на числовой оси. Значения x1 и x2 введте с клавиатуры.

Ответ оставил Гость

Var   x1,x2:integer;
begin
 writeln(x1);
  read(x1);
 writeln(x2);
  read(x2);
  if x1>x2 then
  writeln(abs(x1-x2))
  else
  writeln(abs(x2-x1));
 end.