Урок 13.1 Задача 2

Урок 13.1 Задача 2

Выведите на экран таблицу умножения используя только циклы вида while.

Решение:

program Project1;
var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
    begin
      j:=1;
      while j<=9 do
        begin
          write(i, '*', j, '=', i*j, ' ');
          j:=j+1;
        end;
        writeln();

      i:=i+1;
    end;

   readln();
end.