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

Нужно вывести подряд все целые числа от A до B включительно (так как A < B), по возрастанию, и затем вывести количество этих чисел N. Удобнее всего идти циклом while, увеличивая текущее значение на 1, и параллельно считать, сколько чисел вывели.

Идея решения

1. Считываем A и B.

2. Заводим переменную i, которая начнёт с A.

3. Заводим счётчик N = 0.

4. Пока i <= B:

   • выводим i,

   • увеличиваем N,

   • увеличиваем i.

5. После цикла выводим N.

Количество чисел между A и B включительно равно B - A + 1, но по условию требуется while, поэтому считаем прямо в цикле.

Программа на Паскале (while)

pascal
program PrintBetweenAndCount;
var
  A, B: integer;
  i: integer;
  N: integer;
begin
  readln(A, B);

  i := A;
  N := 0;

  while i <= B do
  begin
    write(i, ' ');
    N := N + 1;
    i := i + 1;
  end;

  writeln;
  writeln(N);
end.

Что выведет программа

• В первой строке (или в одной строке) — все числа от A до B по возрастанию.

• Затем на новой строке — число N, то есть сколько всего чисел было выведено.