Создать заданную последовательность чисел - PascalABC.NET

Формулировка задачи:

как создать последовательность чисел 1,1,2,1,1,2,3,2,1,1,2,3,4,3,2,1 и т.д.

Решение задачи: «Создать заданную последовательность чисел»

Листинг программы

var i, j, n : integer;
begin
  n := 4; // изменяем n - получаем больше или меньше серий
  for i := 1 to n do
    for j := 1 - i to i - 1 do
      write(i - abs(j), ' ')
end.

Объяснение кода листинга программы

В данном коде используется два вложенных цикла, которые выполняются за счет использования ключевого слова for. Первый цикл выполняется n раз, где n - это переменная типа integer, которая инициализируется значением 4. Это значение можно изменять, получая в результате больше или меньше серий. Внутри первого цикла находится второй цикл, который также выполняется n раз, но уже в диапазоне от 1 до i-1, где i - это счетчик первого цикла. Во время каждого выполнения второго цикла выводится значение i-abs(j), где abs(j) используется для получения абсолютного значения переменной j. Значение i-abs(j) выводится с помощью функции write. Таким образом, в результате выполнения кода будет выведено n*(n-1) чисел, где каждое число будет получено путем вычитания абсолютного значения переменной j из значения переменной i.