Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел. Желательно всю программу) Заранее огромное спасибо)
Answers & Comments
M12003
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.
Answers & Comments
begin
read(a,b);
write(a);
repeat
a:=a+1;
write(a);
n:=n+1;
until a=b;
writeln;
writeln(n);
end.