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

1

Ответы и объяснения

2013-12-03T20:18:55+04:00
Var a,b,k:integer;
begin
readln(a.b); {вводить числа по условию a<b}
for b<>a do begin
b:=b-1; inc(k); writeln(b); end;
writeln('количество = ',k);
readln;
end.