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