Урок 13.1 Задание 15

Задание 15 Урок 13.1

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

program task15;
var i, j: integer;
begin
  i := 1;
  repeat
    j := 1;
    repeat
      writeln(j, '/', i, '=', j/i, ' ');
      j:=j+1;
    until (j>9);
    i:=i+1;
  until (i >9);
  readln();
end.

Konsol

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 
1/2=0.5 
2/2=1 
3/2=1.5 
4/2=2 
5/2=2.5 
6/2=3 
7/2=3.5 
8/2=4 
9/2=4.5 
1/3=0.3333333333333333 
2/3=0.6666666666666666 
3/3=1 
4/3=1.3333333333333333 
5/3=1.6666666666666667 
6/3=2 
7/3=2.3333333333333335 
8/3=2.6666666666666665 
9/3=3 
1/4=0.25 
2/4=0.5 
3/4=0.75 
4/4=1 
5/4=1.25 
6/4=1.5 
7/4=1.75 
8/4=2 
9/4=2.25 
1/5=0.2 
2/5=0.4 
3/5=0.6 
4/5=0.8 
5/5=1 
6/5=1.2 
7/5=1.4 
8/5=1.6 
9/5=1.8 
1/6=0.16666666666666666 
2/6=0.3333333333333333 
3/6=0.5 
4/6=0.6666666666666666 
5/6=0.8333333333333334 
6/6=1 
7/6=1.1666666666666667 
8/6=1.3333333333333333 
9/6=1.5 
1/7=0.14285714285714285 
2/7=0.2857142857142857 
3/7=0.42857142857142855 
4/7=0.5714285714285714 
5/7=0.7142857142857143 
6/7=0.8571428571428571 
7/7=1 
8/7=1.1428571428571428 
9/7=1.2857142857142858 
1/8=0.125 
2/8=0.25 
3/8=0.375 
4/8=0.5 
5/8=0.625 
6/8=0.75 
7/8=0.875 
8/8=1 
9/8=1.125 
1/9=0.1111111111111111 
2/9=0.2222222222222222 
3/9=0.3333333333333333 
4/9=0.4444444444444444 
5/9=0.5555555555555556 
6/9=0.6666666666666666 
7/9=0.7777777777777778 
8/9=0.8888888888888888 
9/9=1