Урок 14 Задача 4

Урок 14 Задача 4

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

var M, N, i, j: integer;



procedure flag1(N: integer; var j:integer);
begin
  j:=1;
  readln(N);
  repeat
    write('+ ');
    j:=j+1;
  until j>N ;
end;
procedure flag2(N: integer; var j:integer);
begin
  readln(N);
  j:=1;
  repeat
    write('- ');
    j:=j+1;
  until j>N ;
end;
begin
  i:=1;
  readln(M);
  readln(N);
  repeat
    if ((i mod 2)=0) then
      flag2(N, j)
    else
      flag1(N, j);
    i:=i+1;
  until i>M  ;
  readln();

end.