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