Question

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

Answer 1

Var a,b,i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i:=a to b do write(i,'  ');
writeln;
writeln('n = ',b-a+1);
end.

Пример:
a = 5
b = 10
5  6  7  8  9  10  
n = 6