Урок 13.1 Задание 10

Задание 10 Урок 13.1

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

var i, j,m,n: integer;
begin
  i := 1; 
  writeln('vvedite n');
  readln (n);
  writeln('vvedite m');
  readln (m);
  repeat
    j := 1;
    while (j<=n) do
    begin
      write( j, ' ');
      j:=j+1; 
    end;
    writeln();
    i:=i+1;
  until (i > m);  
end.

Консоль:

vvedite n
12
vvedite m
9
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12 
1 2 3 4 5 6 7 8 9 10 11 12  

var i, j,m,n: integer;
begin
  i := 1; 
  writeln('vvedite n');
  readln (n);
  writeln('vvedite m');
  readln (m);
  repeat
    j := 1;
    while (j<=n) do
    begin
      write( j, ' ');
      begin 
      if (n mod 1=0) then
      j:=j+1
      else 
      begin
      if (n/2)>0 then
      j:=((j+1) div 2);
      end;
      end;
    end;
    writeln();
     i:=i+1;
  until (i > m);  
end.