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

Урок 13.1 Задача 1:

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:

1x1 = 1
1x2 = 2
......

var i, j: integer;
begin
  i := 1; // начальное значение для счетчика внешнего цикла
  repeat  // начало тела внешнего цикла
    j := 1; //  сбрасываем значение счетчика внутреннего цикла в единицу (чтобы он повторился как и предыдущий раз), или если речь идёт о первом витке, то это действие можно назвать заданием начального значения счетчика
    repeat   // начало тела внутреннего цикла
      writeln(i, '*', j, '=', i*j, ' ');
      j:=j+1; // увеличиваем значение счетчика внутреннего цикла
    until (j > 9);
    writeln(); // переносим строку
    i:=i+1; // увеличиваем значение счетчика внешнего цикла
  until (i > 9);  // проверка условия выхода из внешнего цикла и конец его тела
  readln();
end.

Вывод в консоли:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10
2*6=12
2*7=14
2*8=16
2*9=18
3*1=3
3*2=6
3*3=9
3*4=12
3*5=15
3*6=18
3*7=21
3*8=24
3*9=27
4*1=4
4*2=8
4*3=12
4*4=16
4*5=20
4*6=24
4*7=28
4*8=32
4*9=36
5*1=5
5*2=10
5*3=15
5*4=20
5*5=25
5*6=30
5*7=35
5*8=40
5*9=45
6*1=6
6*2=12
6*3=18
6*4=24
6*5=30
6*6=36
6*7=42
6*8=48
6*9=54
7*1=7
7*2=14
7*3=21
7*4=28
7*5=35
7*6=42
7*7=49
7*8=56
7*9=63
8*1=8
8*2=16
8*3=24
8*4=32
8*5=40
8*6=48
8*7=56
8*8=64
8*9=72
9*1=9
9*2=18
9*3=27
9*4=36
9*5=45
9*6=54
9*7=63
9*8=72
9*9=81