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