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