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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,k:integer; begin readln(a.b); {вводить числа по условию aa do begin b:=b-1; inc(k); writeln(b); end; writeln('количество = ',k); readln; end.