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