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

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

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

Решение:

program u13z10;
var i,j,n,m: integer;
begin
  writeln('vvedite m and n');
  readln(m,n);
  for i:=1 to m do
  begin
    if i mod 2 = 0 then
    begin
      for j:=1 to n do
        write(j, ' ');
      writeln();
    end
    else
    begin
      if n div 2 > 0 then
      begin
        for j:=1 to n div 2 do
          write(j, ' ');
      end
      else break;
        writeln();
    end;
  end;
  readln();
end.

Консоль:

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