Даны два целых числа А и В. Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке возрастания а также количество N этих чисел — Pascal(Паскаль)

var
a,b,i,k:integer;
begin
readln(a,b);
for i:=a to b do
begin
       writeln(i,' ');
       inc(k);
end;
writeln;
writeln(k);
readln;
end.

Leave a Comment

− 6 = 3