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

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

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

var a,b:integer;
begin
  a:=1;
  repeat
    b:=1;
    while (b<=9) do
    begin
      writeln (a,':',b,'=',a div b,' ');
      b+=1;
    end;
    writeln();
    a+=1;
  until a>9;
  readln();
end. 

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

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

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

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

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

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

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

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

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

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