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