Задача 1 Урок 13.1
Primary tabs
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
?
1
2
31x1 = 1
1x2 = 2
......
program Variant2; var b, i: integer; begin b:= 1; i:= 1; repeat repeat writeln(b, 'x', i, ' = ', b * i); i:= i + 1; until (i = 10); writeln(); i:= 1; b:= b + 1; until (b = 10); end.
- Log in to post comments
- 418 reads