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