СРОЧНО!!! Даны два целых числа A и B (A меньше B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
СРОЧНО!!! Даны два целых числа 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.
Не нашли ответ?
Похожие вопросы