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.