Привет! Помогите решить задачи и написать программы в паскале: 1)Определить принадлежит...

Question

Привет! Помогите решить задачи и написать программы в паскале:
1)Определить принадлежит ли некая точка с координатой х отрезку [a,b] числовой прямой. Значения а х b вводятся с клавиатуры.

Answer 1

Program prog;
uses crt;

Var a,b,x: real;

begin
clrscr;

write('x = ');
readln(x);
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln;
if (a<=x)and(b>=x) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.