Задача 1 Урок 13.1
Primary tabs
Задача 1 Урок 13.1
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
1x1 = 1 1x2 = 2 ......
var i, j : integer; begin i := 1; repeat begin j := 1; repeat write (i,'*',j,'=',i*j,' '); writeln(); j := j + 1; until j > 9; end; i := i+1; until i >9 ; readln(); end.
- Log in to post comments
- 880 reads
vedro-compota
Sun, 12/19/2021 - 13:10
Permalink
begin end; -- не нужны
_____________
матфак вгу и остальная классика =)
Кас
Sun, 12/19/2021 - 13:17
Permalink
исправил