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