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

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

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

program  u13z10;
var m, n, i, j, a: integer;

begin
   writeln('vvedite chislo m');
   readln(m);
   writeln('vvedite chislo n');
   readln(n);
   for i:=1 to m do
     begin
       for j:=1 to n do
        if (i mod 2 =1) and ((j div 2) > 0) then

       begin
         a:=j div 2;
         write(a,' ');
       end
       else
         write (j,' ');
     end;
  readln();
end.