Задача 1 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
program task1_leson13_1; var i,j:integer; begin i := 1; repeat j := 1; // приводим множитель в начальное состояние repeat writeln(i, ' * ',j,' = ',i * j); j := j + 1; until (j > 9); writeln(); i := i + 1; until (i > 9); readln(); end.
- Log in to post comments
- 601 reads