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