Program task_1; vara,b,one,two,thr : integer; Begin writeln('Введите отрезок (левая - правая границы)'); read(a,b); writeln('Введите 3 числа'); read(one, two, thr); if ((one >= a) and (one <= b)) then writeln('Число ', one, ' принадлежит отрезку ', a, ' ', b); if ((two >= a) and (two <= b)) then writeln('Число ', two, ' ïпринадлежит отрезку ', a, ' ', b); if ((thr >= a) and (thr <= b)) then writeln('Число ', thr, ' принадлежит отрезку ', a, ' ', b); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
