Var a,b,n:integer; begin readln(a);//начало интервала readln(b);//конец интервала readln(n);//число if (k>=a) and (k<=b) then writeln('пренадлежит') else writeln('не пренадлежит') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
