Задача 2 урок 13.2

Задача 2 урок 13.2

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

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

Решение:

program    task_2_lesson_13_2;
var n, m : integer;
begin
  n := 1;
  m := 1;
  while n <= 4 do
        begin
          while m <= 6 do
                begin
                  if ((n mod 2) = 1) then
                     write('- ')
                  else
                      write('+ ');
                  m += 1;
                end;
          m := 1;
          writeln();
          n += 1;
        end;
  readln();
end.