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