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