Запишите алгоритм определения принадлежности. точки Х отрезку [А; В] с использованием комбинациииз двух ветвлений.

1

Ответы и объяснения

2013-03-03T20:39:19+04:00

program AAA;

var A, B ,X :real;

begin

readln(A,B,X);

if X > A then

   if X< B then

       writeln('Прин')

    else 

       writeln('Не прин')

else

    writeln('Не прин')

 

end.