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