Урок 13.2. Задача 2.

Урок 13.2. Задача 2.

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - - 

var m, n, i, j: integer;
begin
  m := 5; // количество рядов
  n := 6; // количество элементов в ряду
  i := 0; // начальное значение для счетчика внешнего цикла
  while i < m do
  begin
    i := i + 1;
    j := 0;
    while j < n do
    begin
      j := j + 1;
      if i mod 2 = 0 then // условие вывода символов, зависит от четности ряда
        write('+')
      else
        write('-');
    end;
    writeln();
  end;
  readln();
end.