Программа на языке Паскаль для определения принадлежности точки x отрезку [k; m]:
var
k, m, x: real;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('x = ');
readln(x);
if (x >= k) and (x <= m) then
writeln ('yes')
else
writeln('no');
end.Ответ: программа заполнена.