Урок 13.1 Задача 5

Урок 13.1 Задача 5

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

Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Решение:

program u13z05;
var i,j,m: integer;
begin
  writeln('vvedite ogranichitel');
  readln(m);
  i:=0;
  while i<m do
  begin
    writeln('vvedite chislo');
    readln(i);
    if i<m then
    begin
      for j:=1 to i do
        write(j,' ');
        j:=j+1;
        writeln();
      end
    else break;
  end;
  writeln('Poka');
  readln();
end.

Консоль:

vvedite ogranichitel
10
vvedite chislo
3
1 2 3
vvedite chislo
2
1 2
vvedite chislo
7
1 2 3 4 5 6 7
vvedite chislo
11
Poka