Question

Написать программу, при выполнении которой выводится 1, если введенное число x принадлежит отрезку [a, b], где a и b заданные пользователем числа, и выводится 0 в противоположной ситуации. Напишите именно в паскале. Очень срочно надо

Answer 1

Ответ:

PascalABC.NET

begin

 var rng := Range(ReadInteger('a = '), ReadInteger('b = '));

 var x := ReadInteger('x = ');

 if rng.Contains(x) then print(1) else print(0);

end.

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет задачу:

pascalCopy code
program CheckBelonging;

var
  a, b, x: real;

begin
  writeln('Введите число a:');
  readln(a);
  
  writeln('Введите число b:');
  readln(b);
  
  writeln('Введите число x:');
  readln(x);
  
  if (x >= a) and (x <= b) then
    writeln('1')
  else
    writeln('0');
end.

Эта программа запрашивает у пользователя значения a, b и x, а затем проверяет, принадлежит ли x отрезку [a, b]. Если x принадлежит отрезку, программа выводит "1", в противном случае выводит "0".