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