Определить, принадлежит ли точка m с координатой x отрезку [a, b] числовой прямой. значения x, a , b вводятся с клавиатуры.

Var a,x,b: real; begin     readln(x,a,b); if a> b then     if (x< =a)and(x> =b)then       writeln('yes')     else         writeln('no') else     if (x< =b)and(x> =a) then           writeln('yes')     else           writeln('no'); end.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var x,a,x1,x2,delta,lambda,y: real;   write('введите границы изменения аргумента и шаг: ');   read(x1,x2,delta);   a: =1.44;   x: =x1;   repeat       lambda: =sqr(tan(x*a/2*pi));       y: =power(x*(2.7*power(x,1.35)+lambda),1/3);       writeln('x=',x,' y=',y);       x+=delta   until x> x2 end. тестовое решение введите границы изменения аргумента и шаг: 1.2 2.0 0.2 x=1.2 y=1.63776729113963 x=1.4 y=1.81249323168809 x=1.6 y=2.04691849426225 x=1.8 y=2.40906764678559 x=2 y=4.09613421404126

Программа - это один из способов записи алгоритма, поэтому "создать алгоритм и программу" - некорректная формулировка. программа на паскале: var x,y: real; begin x: =3.9; y: =exp(sin(x))+cos(x); write('x = ',x,'   y = ',y); if y> =0 then writeln(',   f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена'); x: =5; y: =exp(sin(x))+cos(x); write('x = ',x,'   y = ',y); if y> =0 then writeln(',   f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена'); end. результат: x = 3.9   y = -0.223234541662775, функция f не определена x = 5   y = 0.666967180635498,   f = 6.150614947936