Конечно! Ниже представлен пример программы на языке Pascal, которая выводит все целые числа в столбик от a до b (включительно). В программе предусмотрено, что пользователь вводит значения a и b с клавиатуры.
program PrintNumbers;
uses crt;
var
a, b, i: Integer;
begin
clrscr;
writeln('Введите значение a (начало диапазона): ');
readln(a);
writeln('Введите значение b (конец диапазона): ');
readln(b);
if a <= b then
begin
for i := a to b do
writeln(i);
end
else
begin
for i := a downto b do
writeln(i);
end;
readln; // Чтобы окно не закрывалось сразу
end.
Объяснение программы:
Объявление переменных:
aиb— границы диапазона, вводимы пользователем.i— счетчик цикла.
Ввод данных:
Считываем значенияaиbчерезreadln.Логика вывода:
- Если
a <= b, используем циклfor i := a to bдля последовательного вывода чисел. - Иначе, если
a > b, используем циклfor i := a downto b, чтобы вывести в обратном порядке.
- Если
Завершение:
—readlnв конце нужно для того, чтобы программа не закрылась сразу, когда запуск происходит не в режиме IDE, а в командной строке.
Если нужно, я могу уточнить или модифицировать код!