Question

с клавиатуры вводятся целые числа a>b .выведите убывающую последовательность чисел по одному числу в строке.​

Answer 1

Ответ:

• var
•  a, b, i, n: integer;
• begin
•  Writeln('Введите два числа: ');
•  Read(a, b);
•  n := a - b;
•  for i := 1 to n do
•  begin
•    a -= 1;
•    Writeln(a);
•  end;
• end.