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