Question

1Составьте пожалуйста программу в PascalABC для определения принадлежит ли введённое число промежуткам [2;5] или [-1;1]

Answer 1

Var a:integer;
begin
read(a);
if ((a>=2) and (a<=5)) or ((a>=-1) and (a<=1)) then writeln('Yes') else writeln('No');
end.

Если число не целое, то вместо integer напиши real

Answer 2

Вот пример программы на языке PascalABC, которая определяет, принадлежит ли введенное число промежуткам [2;5] или [-1;1]:

program CheckNumber;

var
  number: real;

begin
  // Ввод числа с клавиатуры
  writeln('Введите число:');
  readln(number);

// Проверка принадлежности числа промежутку [2;5] или [-1;1]
  if (number >= 2) and (number <= 5) then
    writeln('Число принадлежит промежутку [2;5]')
  else if (number >= -1) and (number <= 1) then
    writeln('Число принадлежит промежутку [-1;1]')
  else
    writeln('Число не принадлежит ни одному из промежутков.');

// Завершение программы
  readln;
end.

В данной программе мы используем переменную `number` типа `real` для хранения введенного числа. Затем мы просим пользователя ввести число с помощью `readln(number)`.

После ввода числа мы проверяем его принадлежность промежуткам. Если число больше или равно 2 и меньше или равно 5, то выводим сообщение "Число принадлежит промежутку [2;5]". Если число больше или равно -1 и меньше или равно 1, то выводим сообщение "Число принадлежит промежутку [-1;1]". Если число не удовлетворяет ни одному из промежутков, то выводим сообщение "Число не принадлежит ни одному из промежутков."