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

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

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

Решение:

program u13z01;
var i,j,n,m: integer;
begin
  write('Vvedit chisla n & m : ');
  readln(n,m);
  i:=1;
  repeat
    j:=1;
    repeat
      write('- ');
      j:=j+1;
    until j>m;
    i:=i+1;
    writeln();
  until i>n;
  readln();
end. 

Консоль:

Vvedit chisla n & m : 4 7
- - - - - - -
- - - - - - -
- - - - - - -
- - - - - - -