Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их убывания, а также количество N этих чисел.

var

  A, B, N, i: integer;

 

begin

  N:= 0;  //Обнуляем счетчик

  writeln(Введите числа A и B);

  readln(A, B); //Вводим А и B

  if A < B then  {Если А < B, то печатаем числа начиная с B и заканчивая A, 

иначе наоборот}

    for i:= B downto A do

    begin

      write(i,  );  //Печатаем i

      inc(N);  //Увеличиваем счетчик на 1

    end

  else 

    for i:= A downto B do

    begin

      write(i,  );

      inc(N);

    end;

  writeln;

  writeln(Количество N этих чисел равно:  , N);  //Выводим N

end.

Если все правильно, отметь решение как лучшее)

    

Оцени ответ

Загрузить картинку