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

Question

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

Answer 1

Var a,b,n:integer;
begin
read(a,b);
write(a);
repeat
a:=a+1;
write(a);
n:=n+1;
until a=b;
writeln;
writeln(n);
end.

Comments

Спасибо