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

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

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

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

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

Var n,i,j:integer;
Begin
    write('Введите число для вывода таблицы: ');readln(n);
    For i:=1 to n do
     Begin
      For j:=1 to i do
       write(i:3);
      writeln;
     End;
End.

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

В данном коде используется два цикла: внешний цикл For, который перебирает числа от 1 до n, и внутренний цикл For, который перебирает числа от 1 до i. На каждой итерации внутреннего цикла значение переменной i выводится на экран с помощью функции write(i:3), где 3 - это номер поля ввода. После каждой строки выводится символ новой строки с помощью функции writeln.