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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.