Question

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

Answer 1

Ответ:

Pascal:

var

 a, b: integer;

begin

 Write('Введите A = '); ReadLn(a);

 Write('Введите B = '); ReadLn(b);

 if a > b then swap(a,b);

 WriteLn('Количество чисел между A и B равно ', b - a - 1);

 a := a + 1;

 while a < b do

 begin  

   WriteLn(a);

   a := a + 1;

 end;  

end.

Объяснение: