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

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

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

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

Решение:

program u13z02;
var i,j,n,m: integer;
begin
  write('Vvedit chisla n & m : ');
  readln(n,m);
  i:=1;
  while i<=n do
  begin
    j:=1;
    while j<=m do
    begin
      if i mod 2 = 0 then
        write('+ ')
      else
        write('- ');
      j:=j+1;
    end;
    writeln();
    i:=i+1;
  end;
  readln();
end.

Консоль:

Vvedit chisla n & m : 3 5
- - - - -
+ + + + +
- - - - -