Вывести значение двух точек, между которыми лежит третья - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

На оси ОX определены три точки с попарно различными действительными координатами x1 x2 x3 Вывести значение этих двух точек, между которыми лежит третья

Решение задачи: «Вывести значение двух точек, между которыми лежит третья»

textual
Листинг программы
if x1>x2 then max:=x1 else max:=x2;
if x3>max then max:=x3;
if x1<x2 then min:=x1 else min:=x2;
if x3<min then min:=x3;
write(min:0:2,' ',max:0;2);

Оцени полезность:

11   голосов , оценка 4.455 из 5
Похожие ответы