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

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1...N} M раз

Решение:

program u13z09;
var i,j,n,m: integer;
begin
  writeln('vvedite m and n');
  readln(m,n);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      write(j, ' ');
    end;
    writeln();
  end;
  readln();
end.

Консоль:

vvedite m and n
5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6