Решение задачи №5 из главы 13.1

Решение задачи №5 из главы 13.1

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

var m, a, i: integer;
begin
  writeln('vvedite celoe chislo');
  readln(m); //вводим число ограничитель
  writeln('vvedite vtoroe celoe chislo');
  readln(a); //вводим второе число
  while (m > a) do //
    begin
      for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
      write(i, ' '); // переносим строку
      readln();
    writeln('vvedite vtoroe celoe chislo');
  readln(a); //вводим число
    end;
  writeln('zaversheno!');
  readln();
end.
vedro-compota's picture

в принципе решение очень похоже на верное, но оно не точно по тексту:

Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

-- исправьте.
+ одна погрешность в форматировании.

_____________
матфак вгу и остальная классика =)