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