Циклы. Напечатать числа в виде таблицы, используя только циклы - Turbo Pascal (37889)

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

Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять):

В виде пирамидки

Решение задачи: «Циклы. Напечатать числа в виде таблицы, используя только циклы»

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

Var n , i , j : integer;
Begin
    ReadLn(n);
    for i := 1 to n do begin
        for j := 1 to n - i do
            Write(' ');
        for j := 1 to i do 
            Write(i,' ');
        Writeln;    
    end;
End.

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

В данном коде используется два вложенных цикла: внешний цикл для перебора чисел от 1 до n, и внутренний цикл для вычисления значений i и j. Внутренний цикл выполняется n-i раз, где n - значение переменной n, а i - значение переменной i. Он отвечает за вычисление значений i и j. Внешний цикл выполняется n раз, где n - значение переменной n. Он отвечает за вывод чисел в виде таблицы. Внутри внешнего цикла после вывода числа i в ячейку таблицы, внутренний цикл выводит значение i. Затем, после вывода числа i, внутренний цикл выводит значение j. Это продолжается до тех пор, пока значение j не станет больше значения i. После этого внутренний цикл прекращается, и внешний цикл продолжает свое выполнение со следующим числом. Таким образом, результатом работы программы будет таблица, в которой каждое число n раз повторяется.