Question

Даны два целых числа A и B (при этом A≤B). Выведите все числа от A до B включительно. Язык Pasckal ABC

Answer 1

var  

a,b,i:integer;

begin

 readln(a,b);

 if a<=b then

 for i:=a to b do

   write(i:4)

     else

       for i:=b to a do

         write(i:4)

end.

Answer 2

Вот пример кода на языке Pascal ABC, который выводит все числа от A до B включительно:

lessCopy code
program NumbersFromAtoB;
var
  A, B, i: integer;
begin
  // Вводим значения A и B
  write('Введите число A: ');
  readln(A);
  write('Введите число B (B >= A): ');
  readln(B);

  // Выводим числа от A до B
  for i := A to B do
    writeln(i);

  readln;
end.

Программа позволяет пользователю ввести два числа A и B, где A ≤ B. Затем с помощью цикла for она выводит все числа от A до B включительно.