Задача на Паскаль. «Лесенка» чисел

Постановка задачи. Создать программу, чтобы с каждой новой строки количество чисел увеличивалось на единицу и каждое последующее число увеличивалось на единицу.

Сперва напишем программу на Паскаль, которая будет рисовать лесенку чисел. В ней будет два цикла. Один цикл отвечает за количество строк, другой - за выводимые числа. Второй цикл ограничивается первой переменной i.

for j:=1 to i do

Код самой программы:

Program n1234;

Var i,j:integer;

Begin

for i:=1 to 9 do

begin

for j:=1 to i do

write(j, );

writeln(); 

end;

End.

Результатом выполнения программы явлется следующая лесенка:

1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
1 2 3 4 5 6
1 2 3 4 5 6 7
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8 9

Но в нашей задаче нужно, чтобы каждое последующее число ещё отличалось и на единицу. Примерно, это выглядит так:

1
2 3
4 5 6
7 8 9 10

Применим цикл с предусловием, и будем принудительно обнулять переменную, которая отвечает за количество чисел в строке.

Program n1234_2;

Var i,j,k:integer;

Begin

j:=1;

for i:=1 to 9 do

begin

k:=0;

while k<i do

begin

write(j:3, );

inc(j);

inc(k);

end;

writeln();

end;

End.

В результате выполнения программы получается такая лесенка:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 32 33 34 35 36
37 38 39 40 41 42 43 44 45

Это именно то, что требовалось по заданию. Задача решена.