For3. Даны два целых числа $$A$$ и $$B$$ ($$A < B$$). Вывести в порядке убывания все целые числа, расположенные между $$A$$ и $$B$$ (не включая числа $$A$$ и $$B$$), а также количество $$N$$ этих чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program For3; var A,B, i:Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); For i:=1 to B-A-1 do Writeln(B-i); Writeln('Кол-во: ',B-A-1); end. |
или
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program For2; var A,B, i:Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); For i:=B-1 downto A+1 do Writeln(i); Writeln(' ',B-A-1); readln; end. |
Другие задачи из раздела For можно посмотреть здесь.
for i:=1 to (abs(b-a)-1) do
writeln(b-i);
write(abs(b-a)-1);
от моего варианта отличается только модулем, но у нас есть условие ($$A < B$$). А вообще здесь логичнее воспользоваться конструкцией for ... downto ... do, добавил пример.