Задача 21
Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | var a, b , i, n : integer; begin write ('A='); readln (a); write ('B='); readln (b); n:= 0; for i:= a to b do begin write(i:3); inc(n); end; writeln; writeln('N= ',n); readln; end. |