Предоставлены действительные числа x и y. Перечислить в убывающем порядке все целые числа, находящиеся между x и

Название: Поиск целых чисел

Пояснение: Для решения задачи на языке Паскаль, мы можем использовать цикл for и условные операторы if-then-else. Сначала нам необходимо определить начальное и конечное целые числа для цикла и количество найденных целых чисел. Затем мы можем инициализировать счетчик чисел с нуля. Внутри цикла будем проверять каждое число в диапазоне от x до y и увеличивать счетчик, если число является целым. После окончания цикла мы можем сортировать найденные целые числа в убывающем порядке. Наконец, мы можем вывести отсортированные целые числа и количество найденных чисел.

Демонстрация:

Program FindIntegers;

var

  x, y, temp, i, count: integer;

  integers: array of integer;

begin

  writeln("Введите значения x и y: ");

  readln(x, y);

  

  // Переставляем значения, если x > y

  if x > y then

  begin

    temp := x;

    x := y;

    y := temp;

  end;

  

  count := 0;

  

  // Поиск целых чисел в заданном диапазоне

  for i := x + 1 to y - 1 do

  begin

    if i = Trunc(i) then

    begin

      count := count + 1;

      SetLength(integers, count);

      integers[count - 1] := i;

    end;

  end;

  

  // Сортировка найденных целых чисел в убывающем порядке

  for i := 0 to count - 1 do

  begin

    for j := i + 1 to count - 1 do

    begin

      if integers[i] < integers[j] then

      begin

        temp := integers[i];

        integers[i] := integers[j];

        integers[j] := temp;

      end;

    end;

  end;

  

  // Вывод найденных целых чисел и их количество

  writeln("Найдено ", count, " целых чисел:");

  for i := 0 to count - 1 do

  begin

    writeln(integers[i]);

  end;

end.

Совет: При решении этой задачи можно использовать встроенные функции языка Паскаль для округления чисел или использовать деление с остатком (`div` и `mod`) для проверки, является ли число целым.

Задача для проверки: Найти количество целых чисел и вывести их в убывающем порядке для диапазона от -5 до 10.