Question

Напишите программу на языке Паскаль:Выяснить принадлежит ли точкаX отрезку от 1 до 10? Буду очень благодарна)

Answer 1

Var a: integer;
begin
Readln(a);
if (a<=10) and (a>=1) then
Writeln('принадлежит')
else Writeln('не принадлежит')
end.

Answer 2

Конечно, вот программа на языке Паскаль, которая проверяет принадлежит ли точка X отрезку от 1 до 10:

program CheckPointOnSegment;

var
  X: Integer;

begin
  writeln('Введите значение точки X: ');
  readln(X);
  
  if (X >= 1) and (X <= 10) then
    writeln('Точка X принадлежит отрезку от 1 до 10')
  else
    writeln('Точка X не принадлежит отрезку от 1 до 10');
end.

Эта программа сначала запрашивает у пользователя значение точки X, затем проверяет, принадлежит ли оно отрезку от 1 до 10, и выводит соответствующее сообщение.