Question

Даны действительные числа x, y. Вывести в порядке убывания все целые числа, расположенные между х и у, а также количество этих чисел. Сделать цикличный алгоритмНа языке паскаль

Answer 1

Программа:

Pascal:

var

 x, y: real;

 n: integer;

begin

 write('x = ');  readln(x);

 write('y = ');  readln(y);

 if x > y then

   while x > y + 1 do begin

     x := round(x) - 1;

     writeln(x);

     inc(n);

   end

 else

   while y > x + 1 do begin

     y := round(y) - 1;

     writeln(y);

     inc(n);

   end;

   

 writeln(n, ' чисел между данными цифрами');

end.

Answer 2

Конечно, могу помочь с этой задачей на языке Паскаль. Вот пример циклического алгоритма для решения данной задачи:

program NumbersBetweenXY;

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

begin
  // Ввод значений x и y
  writeln('Введите два числа x и y:');
  readln(x, y);

// Проверка на правильность ввода (если x > y, меняем их местами)
  if x > y then
  begin
    temp := x;
    x := y;
    y := temp;
  end;

// Вывод чисел в порядке убывания между x и y
  writeln('Целые числа между ', x, ' и ', y, ' в порядке убывания:');

count := 0; // Счетчик чисел

// Проверяем и выводим числа между x и y
  for i := y - 1 downto x + 1 do
  begin
    writeln(i);
    count := count + 1;
  end;

// Вывод количества чисел
  writeln('Количество чисел между ', x, ' и ', y, ' составляет: ', count);
end.

Этот код запрашивает у пользователя два числа `x` и `y`, затем выводит целые числа между `x` и `y` в порядке убывания, а также подсчитывает и выводит количество этих чисел.

Надеюсь, этот пример поможет вам решить задачу!