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