Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО!!! Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.

Ответ оставил Гость

Var a,b,n,i:integer;
begin
n:=0;
read(a,b);
for i:=b-1 downto a+1 do
begin
inc(n);
write(i, );
end;
writeln();
writeln(n);
end.