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

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

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

Решение:

program u13z14;
var i,j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
      if (i mod j < 1) then
        writeln(i,':',j,' = ',i div j);
      j:=j+1;
    until j>9;
    i:=i+1;
  until i>9;
  readln();
end.

Консоль:

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