Задача 1 Урок 13.1
Primary tabs
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
1x1 = 1 1x2 = 2 ......
program task1; var i, j: integer; begin i := 1; repeat j := 1; repeat writeln(j, 'x', i, '=', j*i, ' '); j:=j+1; until (j>=9); i:=i+1; until (i > 9); readln(); end.
- Log in to post comments
- 490 reads