Задача 3 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Выведите на экран таблицу умножения используя один цикл while и один repeat-until }
program task3_lesson13_1; var i, j : integer; begin i := 1; while i <= 9 do begin j := 1; repeat writeln(i, ' * ',j,' = ',i * j); j := j + 1; until (j > 9); i := i + 1; writeln(); end; readln(); end.
- Log in to post comments
- 611 reads