Напечатать числа в виде следующей таблицы: - Turbo Pascal

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

Напечатать числа в виде следующей таблицы: 2 3 4 5 6 7 8 9 10 3 4 5 6 7 8 9 10 4 5 6 7 8 9 10 .................. 9 10 Напечатать числа в виде следующей таблицы: 5 5 5 5 5 10 10 10 10 15 15 15 20 20 25 Напечатать числа в виде следующей таблицы: 101 102 103 104 105 111 112 113 114 115 121 122 123 124 125 ................................ 161 162 163 164 165 Напечатать числа в виде следующей таблицы: 51 52 53 ...58 41 42 43 .... 48 ..................... 21 22 23....28

Решение задачи: «Напечатать числа в виде следующей таблицы:»

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

var i,j:byte;
begin
for i:=1 to 8 do
 begin
  for j:=i+1 to 10 do
  write(j:3);
  writeln;
 end;
end.

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

В данном коде происходит следующая последовательность действий:

Объявляются две переменные типа byte: i и j.
Запускается цикл for i:=1 до 8 do, который выполняется 8 раз.
Внутри цикла запускается вложенный цикл for j:=i+1 до 10 do, который выполняется 7 раз (от i+1 до 10).
В каждой итерации вложенного цикла число j выводится на экран с помощью функции write(j:3), где 3 - это размерность числа, которое будет выведено (в данном случае - трехзначное число).
После окончания вложенного цикла выводится символ новой строки с помощью функции writeln.
По завершении внешнего цикла переменная i и переменная j получают значения, которые были у переменной i на момент входа в цикл (т.е. i становится равным 1, а j - 10).
Программа завершается.