составить программу на языке Паскаль Принадлежит ли число n интервалу (a,b).
Answers & Comments
klim576
Var a,b,n:integer; begin readln(a);//начало интервала readln(b);//конец интервала readln(n);//число if (k>=a) and (k<=b) then writeln('пренадлежит') else writeln('не пренадлежит') end.
0 votes Thanks 0
klim576
if n>=a and n<=b замените просто под ваше условие забыл исправить
Answers & Comments
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.