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

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

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

var m, n, i, j: integer;
begin
  m := 4; // количество рядов
  n := 6; // количество элементов в ряду
  i := 1; // первый ряд
  repeat
  j := 1;
    repeat
    j := j + 1; // количество символов в ряду
    write('-');
    until (j > n);
  i := i + 1; // увеличение рядов
  writeln();
  until (i > m);
  readln();
end.
vedro-compota's picture

неправильное форматирование

_____________
матфак вгу и остальная классика =)

var m, n, i, j: integer;
begin
  m := 4; // количество рядов
  n := 6; // количество элементов в ряду
  i := 1; // первый ряд
  repeat
    j := 1;
    repeat
      j := j + 1; // количество символов в ряду
      write('-');
    until (j > n);
    i := i + 1; // увеличение рядов
    writeln();
  until (i > m);
  readln();
end.
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)