Определить принадлежит ли введены три числа отрезку задаваемому с клавиатуры

Question

Определить принадлежит ли введены три числа отрезку задаваемому с клавиатуры

Comments

Паскаль?

---

Да

---

Borland pascal 7.0

Answer 1

Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then<br>WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.