Урок 13.1. Задача 14.

Урок 13.1. Задача 14.

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var a, b, c : integer;

begin
  for a := 1 to 9 do
  begin
    for b := 1 to 9 do
      if (b mod a = 0) then
      begin
        c := b div a;
        write(b, ' : ', a, ' = ', c, '  ');
      end;
     writeln();
  end;
  readln();
end. 

1 : 1 = 1  2 : 1 = 2  3 : 1 = 3  4 : 1 = 4  5 : 1 = 5  6 : 1 = 6  7 : 1 = 7  8 : 1 = 8  9 : 1 = 9
2 : 2 = 1  4 : 2 = 2  6 : 2 = 3  8 : 2 = 4
3 : 3 = 1  6 : 3 = 2  9 : 3 = 3
4 : 4 = 1  8 : 4 = 2
5 : 5 = 1
6 : 6 = 1
7 : 7 = 1
8 : 8 = 1
9 : 9 = 1