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

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

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

program project1;
var i,j,m,n:integer;

begin
  write('vvedite M: '); readln(m);
  write('vvedite N: '); readln(n);
  for i:=1 to m do
    begin
      if(i mod 2=1) then
        n:=n div 2
      else
        n:=n * 2;
      for j:=1 to n do
          write(j,' ');
      writeln();
    end;
  readln();
end.