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