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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку