Question

Написать программу, которая определяет, принадлежит ли число N заданному интервалу |К, L]. delphi

Answer 1

Ответ:

const interval = (k, l) => {

   let result = [k];

   let i = k + 1;

   while (i < l) {

       result.push(i);

       i++;

   }

   result.push(l)

   return result;  

};

const main = (n) => {

   console.log(interval(1, 4).includes(n))

}

main(4) // True

Объяснение:

Функция interval генерирует массив по интервалу.

В функции main происходит проверка, содержится ли число в массиве

Answer 2

Конечно, вот пример программы на Delphi, которая определяет, принадлежит ли число N заданному интервалу [K, L]:

program CheckNumberInRange;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  N, K, L: Integer;

begin
  // Введите число N
  Write('Введите число N: ');
  Readln(N);

// Введите начало интервала K
  Write('Введите начало интервала K: ');
  Readln(K);

// Введите конец интервала L
  Write('Введите конец интервала L: ');
  Readln(L);

// Проверяем, принадлежит ли число N интервалу [K, L]
  if (N >= K) and (N < L) then
    Writeln(N, ' принадлежит интервалу [', K, ', ', L, ']')
  else
    Writeln(N, ' не принадлежит интервалу [', K, ', ', L, ']');

Readln;
end.

Эта программа сначала запрашивает у пользователя ввод числа `N`, начала интервала `K` и конца интервала `L`. Затем она проверяет, принадлежит ли число `N` интервалу [K, L], и выводит соответствующее сообщение на экран.