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

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

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

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

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