Pascal. Задача 3-9

Вывести все двузначные целые числа по 10 в каждой строке.

Решение

var
  i, j, k : integer;
begin
  k := 10;
  for i := 1 to 9 do begin
    for j := 1 to 10 do begin
      write(k, ' ');
      inc(k);
      end;
    writeln();
  end;
end.

Вариант с вычислением выводимого числа по переменным цикла


var
  i, j : integer;
begin
  for i := 1 to 9 do begin
    for j := 1 to 10 do begin
      write(10 * i + j - 1, ' ');
      end;
    writeln();
  end;
end.