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